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Introducción 


AMSTRAD CPC6128 


Sistema integrado de ordenador/disco 


Una evolución lógica 


Los dos modelos anteriores de Amstrad, el CPC464 y el CPC664, que tan inmenso éxi- 
to han tenido, han constituido la base a partir de la cual hemos desarrollado este nuevo 
sistema: el CPC6128. 


Continuando con nuestra norma de compatibilidad, el CPC6128 puede funcionar con 
los programas escritos para el CPC464 y el CPC664, y además dispone de 64K de RAM 
adicionales que pueden ser aprovechados por CP/M y otros programas. 


CP/M Plus 


El sistema operativo CP/M Plus (también conocido como CP/M 3.1) proporciona el 
acceso inmediato a la amplia biblioteca de programas diseñados para CP/M 80. Gra- 
cias a los 61K de TPA (área para programas transitorios), cualquier programa de 
CP/M 80 encuentra espacio más que suficiente para sí mismo y para los datos. CP/M 
Plus es compatible con CP/M 2.2; no obstante, hemos incluido ambas versiones para 
permitir que las aplicaciones que hayan sido desarrolladas utilizando funciones del sis- 
tema operativo CP/M 2.2 en Amstrad funcionen sin requerir modificación. 


CP/M Plus está dotado de numerosas funciones que contribuyen a mejorar las presta- 
ciones del sistema; casi todos los programas escritos para CP/M 2.2 pueden aprovechar 
estas funciones sin conflicto. El sistema CP/M Plus incluye un “emulador de consola” 
gracias al cual los programas que han sido configurados para adaptarse al método de 
control de la pantalla de los terminales VT52 y Zenith Z19/Z29 pueden funcionar en 
el CPC6128 sin necesidad de más adaptación. | 


GSX 


GSX es un sistema de gestión de gráficos, suministrado con esta versión de CP/M Plus, 
que permite a los programas controlar, mediante instrucciones estándar, la emisión de 
gráficos a través de la pantalla o de impresoras o plotters. Los programas que utilicen 
GSX podrán comunicarse con diversos dispositivos gráficos para producir copias en 
papel de diagramas de barras, gráficas, etc. 
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Dr. LOGO 


El LOGO de Digital Research continúa abriendo caminos nuevos en la enseñanza de 
la informática; gracias a la memoria adicional del 6128, ha sido posible ampliar la ante- 
rior versión de Dr. LOGO (para CP/M 2.2) con nuevas instrucciones. Por supuesto, 
los programas escritos para la versión antigua son compatibles con la nueva. 


Discos 


El CPC664 estableció un punto de referencia para el futuro con su unidad de disco 
incorporada en la propia máquina. El CPC6128 sigue ofreciendo las ventajas del 
sistema de disco a un número cada vez mayor de usuarios que demandan las 
prestaciones de los ordenadores personales a precio de ordenadores domésticos. Los 
programas que utilizan las funciones más avanzadas de CP/M Plus y GSX no podrán 
funcionar en los modelos anteriores. 


Finalmente, el CPC6128 está apoyado por uno de los fabricantes de productos 
electrónicos de gran consumo más grandes del Reino Unido. Por otra parte, la revista 
oficial de Amstrad se ha convertido ya en la principal y más fiable fuente de 
información y noticias para los usuarios de los ordenadores Amstrad. 


Programas 


El CPC6128 puede ejecutar todos los programas disponibles en disco para los sistemas 
CPC664 y CPC464/DDI1, y casi todos los disponibles en cinta (conectando un 
magnetófono de cassettes, por supuesto). Esto significa que el usuario del CPC6128 
puede elegir, sin necesidad de espera alguna, entre los muchos programas publicados 
por Amsoft y otras casas de software. 
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A division of 


AMSTRAD 


CONSUMER ELECTRONICS PLC 
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El contenido de este manual y el producto en él descrito no pueden ser adaptados ni reproducidos, ni total 
ni parcialmente, salvo con el permiso escrito de AMSTRAD Consumer Electronics plc (“Amstrad”). 


El producto descrito en este manual, así como los diseñados para ser utilizados con él, están sujetos a 
desarrollo y mejoras continuas. Toda la información técnica relativa al producto y su utilización (incluida 
la que figura en este manual) es suministrada por AMSTRAD de buena fe. Admitimos, no obstante, que 
en este manual puede haber errores u omisiones. El usuario puede obtener una lista de correcciones y mo- 
dificaciones solicitándola de AMSOFT Technical Enquiries o de sus distribuidores. Rogamos a los usua- 
rios que rellenen y envíen a los distribuidores las tarjetas de registro y de garantía. 


AMSOFT agradecerá el envío de comentarios y sugerencias relativos a este manual y al 
producto en él descrito. 


Toda la correspondencia se debe dirigir a 


AMSOFT 
Aravaca, 22 
28040 Madrid 
España 


Toda reparación u operación de mantenimiento de este producto debe ser confiada a los 
distribuidores autorizados de AMSOFT. Ni AMSOFT ni AMSTRAD pueden aceptar 
ninguna responsabilidad derivada del daño o pérdida que se pueda ocasionar como resul- 
tado de reparaciones efectuadas por personal no autorizado. El objetivo de este manual 
no es sino servir de ayuda al usuario en la utilización del producto; por consiguiente, 
AMSTRAD y AMSOFT quedan eximidos de responsabilidad por el daño o pérdida a que 
pueda dar lugar la utilización de la información aquí publicada o la incorrecta utilización 
del producto. 


Dr. LOGO, CP/M, CP/M Plus, GSX y DR Graph son marcas registradas de 
Digital Research Inc. 
Z80 es marca registrada de Zilog Inc. 

IBM e IBM PC son marcas registradas de International Business Machines Inc. 
Z19, Z29 y H89 son marcas registradas de Zenith Data Systems, Inc. 
VTS52 es marca registrada de Digital Equipment Corp. 

AMSDOS, CPC6128, CPC664, CPC472 y CPC464 son marcas registradas de 
AMSTRAD Consumer Electronics ple 
Edición 1986 


Compilado por Ivor Spital 
Escrito por Ivor Spital, Roland Perry, William Poel, Cliff Lawson; 
con la colaboración de Locomotive Software Ltd 
y con aportaciones de Alexander Martin, David Radisic y Ken Clark 
Traducido del inglés por Emilio Benito Santos 


Publicado por AMSTRAD 


Edición española producida por 
Vector Ediciones 


AMSTRAD es marca registrada de AMSTRAD Consumer Electronics ple 
Queda estrictamente prohibido utilizar la marca y la palabra AMSTRAD sin la debida autorización 
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IMPORTANTE 


Por favor, lea las siguientes ... 


Notas de instalación 


1. Conecte el cable de alimentación a una clavija siguiendo para ello las instrucciones 
que se dan en la Parte 1 del “Curso de Introducción”. 


2. No intente conectar este equipo a una red de distribución de energia eléctrica que 
no sea de 220-240 V c.a., 50 Hz. 


3. El mantenimiento que pueda hacer el usuario no requiere en ningún caso acceder 
al interior de la carcasa. Así pues, no abra nunca el equipo. Confíe todas las 
reparaciones y operaciones de mantenimiento a personal cualificado. 


4. Para evitar la fatiga visual, ponga el monitor lo más alejado posible del teclado y 
trabaje con luz ambiente adecuada. Deje el control de brillo del monitor lo más bajo 
posible. 


5. El ordenador debería estar centrado con respecto al monitor, lo más lejos posible 
de él. Para optimizar la fiabilidad del almacenamiento de datos, la unidad de disco 
no debería quedar frente al monitor, sino a su derecha. No ponga el ordenador cerca 
de fuentes de interferencia eléctrica. 


6. Evite que las unidades de disco y los propios discos estén sometidos a la influencia 
de campos magnéticos. 


7. Si tiene conectada la segunda unidad de disco, mantenga alejado el cable de datos 
del cable de alimentación. 


$. No obstruya ni cubra los orificios de ventilación. 


9. No utilice ni almacene el equipo a temperaturas demasiado altas ni demasiado 
bajas, ni en lugares húmedos ni polvorientos. 


Notas de operación 


(No se preocupe si al principio le resulta extraña la terminología utilizada en esta 
sección; el significado de estas advertencias irá quedando más claro según avance en 
la lectura de este manual.) 


1. No encienda ni apague el sistema mientras haya un disco en la unidad, so pena de 
perder la información en él grabada. 
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Haga copias de todos los discos que contengan datos o programas valiosos. En 
particular [copie los discos de CP/M que se suministran con el CPC6128)] pues si 
se deteriorasen accidentalmente su sustitución sería costosa. 

Para evitar el riesgo de borrar accidentalmente los discos de CP/M, cerciórese de 
que los orificios de protección contra escritura de los discos estén abiertos. 


Si está utilizando un sistema de dos discos, es decir, si ha adquirido una unidad 
AMSTRAD FD1 adicional, encienda siempre la segunda unidad antes que el 
ordenador. 


. No toque la superficie de los discos. 


No extraiga el disco mientras el ordenador no haya terminado de leer o escribir 
en él. 


. Recuerde que al inicializar los discos se borra su contenido anterior. 


. El interfaz de la unidad de discos ocupa una pequeña porción de la memoria. 


Algunos programas publicados en cassette para el CPC464 aprovechan esa zona de 
la memoria, y por lo tanto no pueden funcionar en el sistema CPC6128+ cassette. 
En caso de duda sobre la compatibilidad de los programas basados en cinta, 
póngase en contacto con AMSOFT o con su distribuidor. Tenga en cuenta, no 
obstante, que casi todos los programas de AMSOFT están disponibles en disco para 
su utilización en el CPC6128. 


El acuerdo de licencia para el sistema operativo CP/M (que está codificado 
mediante un número de serie grabado en los discos) permite su utilización en un solo 
ordenador. Esto significa, en particular, que al usuario le está prohibido ceder a 
otras personas copias de su CP/M. Lea atentamente el *Acuerdo de licencia para 
el usuario final? (Apéndice 1 de este manual). 
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Capítulo 1 
Curso de introducción 


Parte 1: Instalación y mantenimiento 


El CPC6128 puede ser instalado con: 


1. El monitor de fósforo verde AMSTRAD GT65. 
2. El monitor de color AMSTRAD CTM644, 
3. O la unidad modulador/fuente de alimentación AMSTRAD MP2 conectada a 


un televisor de color (en UHF). 


Conexión del ordenador a la red 


El CPC6128 sólo se puede conectar a la red de 220-240V c.a., 50 Hz. 


No extraiga ningún tornillo ni trate de abrir la carcasa del ordenador, del monitor ni 
de la unidad MP2. Lea y respete las advertencias que se dan en la etiqueta de caracterís- 
ticas, que está situada en la cara inferior de la carcasa del ordenador y de la fuente de 


alimentación: 


Desconectar cuando no se utilice. 
¡ATENCIÓN! 
No manipular en su interior 


y en la cara posterior de los monitores: 


NO ABRIR SIN ANTES DESCONECTAR 
LA TENSIÓN DE RED 
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Conexión del ordenador a un monitor 


(Si va a utilizar su CPC6128 con la unidad MP2, no es necesario que lea esta sección.) 
1. Cerciórese de que el monitor no está conectado a la red. 


2. Conecte el cable que sale de la cara frontal del monitor y termina en una clavija 


grande (DIN de 6 patillas) al zócalo posterior del ordenador marcado con 
MONITOR. 


3. Conecte el cable que sale de la cara frontal del monitor y termina en la clavija más 
pequeña al zócalo posterior del ordenador marcado con 5V C.C. 


4. Conecte el cable que sale de la cara posterior del ordenador y termina en una clavija 
pequeña (12V c.c.) al zócalo que hay en la cara frontal del monitor. 


CARA FRONTAL DEL MONITOR 
PANEL POSTERIOR 
DEL ORDENADOR 
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Conexión del ordenador a la unidad 
modulador/fuente de alimentación MP2 


La MP2 es una unidad opcional que el usuario puede querer adquirir si está utilizando 


actualmente el CPC6128 con el monitor de fósforo verde GT65. La MP2 permite co- 
nectar el CPC6128 a un televisor de color doméstico, para asi disfrutar de las posibili- 
dades de color del CPC6128. 


La MP2 se debe colocar inmediatamente a la derecha del CPC6128. 
1. Cerciórese de que la MP2 no está conectada a la red. 


2. Conecte el cable de la MP2 que termina en una clavija grande (DIN de 6 patillas) 
al zócalo posterior del ordenador marcado con MONITOR. 


3. Conecte el cable de la MP2 que termina en una clavija pequeña al zócalo posterior 
del ordenador marcado con 5Y c.c. 


4. Conecte el cable que sale de la MP2 y termina en una clavija de antena a la entrada 
de antena de su televisor. 


5. Conecte el cable que sale de la cara posterior del ordenador y termina en una clavija 
pequeña (12V c.c.) al zócalo posterior de la MP2. 


* CARA POSTERIOR DE LA ] 
CLAVIJA UNIDAD MODULADOR/FUENTE CARA POSTERIOR 
DERED_ DE ALIMENTACIÓN MP2 DEL ORDENADOR 
A LA ENTRADA DE 


5h ENOLO LOAD po GUJO pap ape agaGopopenapo 
A 
NO 
ANTENA DEL MEMOS: 
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Encendido del sistema CPC6128 con GT65 o con 
CTM644 


(Si va a utilizar su CPC6128 con la unidad MP2, no es necesario que lea esta sección.) 


Una vez conectado el sistema según se ha explicado en secciones anteriores, inserte la 
clavija de red en la toma mural. Para encender el sistema, pulse el botón ALIMENTA- 
CIÓN que está en la cara frontal del monitor, de modo que quede en posición «ENC.». 
Si este botón está en «APAG.», el suministro de corriente al resto del sistema queda 
interrumpido. 


Encienda el ordenador mediante el interruptor deslizante marcado con ALIMENTA- 
CIÓN, que está en su cara derecha. 


En este momento se debe encender el piloto rojo (ENC) que está a la derecha del tecla- 
do; en el monitor se verá el siguiente mensaje: 


fmstrad 128K Microcomputer (53) 


d € mer Electronics plc. 
e 1208 ad Locomative Software Ltd. 


BÁSIC 1.1 
Ready 
A e 


Para evitar la fatiga visual excesiva, ajuste el control de brillo marcado con BRILLO 
al mínimo necesario para que el texto se vea cómodamente, sin que deslumbre ni resulte 
borroso. 


El control BRILLO se encuentra en la parte inferior de la cara frontal del monitor 
GT65 y en el lateral derecho del CTM644. 


En el caso del GT65, puede ser necesario ajustar los controles de contraste (CON- 
TRASTE) y de fijación del cuadro vertical (SINCRO. VERT.), que están en el panel 
frontal. 


El mando de CONTRASTE se debe poner en el mínimo compatible con la cómoda vi- 
sualización de los textos. 


FA 5 5 [5 5 5 5 
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Encendido del sistema CPC6128 con la unidad 
modulador/fuente de alimentación MP2 


Una vez conectado el sistema según se ha explicado en secciones anteriores, inserte la 
clavija de red en la toma mural. Encienda el ordenador mediante el interruptor desli- 
zante que está en su lateral derecho. 


En este momento se debe encender el piloto rojo que está en el centro del teclado. Aho- 
ra debe sintonizar el televisor para recibir las señales del ordenador. 


Si su televisor tiene un selector de canales de botonera, pulse el botón correspondiente 
a un canal no utilizado. Ajuste el mando de sintonía siguiendo las instrucciones del ma- 
nual del televisor (si dispone de un dial de sintonía, pruebe en las proximidades del ca- 
nal 36) hasta obtener la siguiente imagen: 


Ámstrad 128K Microcomputer (53) 


61985 Ámstrad Consumer Electronics ple. 
and Locomotive Software Ltd. 


BÁSIC 1.1 
Ready 
A A 


Trate de conseguir la máxima nitidez posible. El texto aparecerá en color amarillo do- 
rado sobre fondo azul. 


Si el televisor tiene un selector de canales rotatorio, gírelo hasta que pueda ver la ima- 
gen y ésta sea estable (canal 36, aproximadamente). 
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Anomalías en el funcionamiento del sistema 


Al pulsar el interruptor de alimentación no se ilumina la pantalla 


— Apague el interruptor pulsándolo por segunda vez. 


— Desconecte el ordenador de la toma mural. 


— Enchufe en ella una lámpara que usted sepa que funciona para comprobar que 
llega corriente. 


— Deconecte la impresora. 
— Si tiene instalado un interfaz RS232, desconéctelo. 


— Vuelva a enchufar el ordenador en la toma mural; si hay algún interruptor que 
controle el paso de corriente al enchufe, enciéndalo. 


— Finalmente, vuelva a pulsar el interruptor de alimentación. 


Si el problema persiste, consulte a su distribuidor. 


No se puede introducir el disco en la unidad 


— Compruebe que no hay otro disco en la unidad. Si lo hay, se verá la etiqueta. 
En tal caso pulse el botón de eyección para extraerlo. 


— Cerciórese de que no está intentando introducir el disco al revés (véase la sección 
3.1.2). 


Limpieza 


Para la limpieza de la pantalla y el teclado recomendamos el uso de espumas antiestáti- 
cas en aerosol. En ningún caso se puede utilizar productos limpiadores espirituosos. 


Finalmente, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho 
al principio de este manual, en la sección titulada “IMPORTANTE?: 


NOTAS DE INSTALACIÓN 1, 2, 4, 5, 6, 7 y 8 (pág. 4) 
NOTA DE OPERACIÓN 1 (pág. 4) 
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Parte 2: Conexión de los periféricos ... 


En esta sección vamos a explicar cómo se conectan al sistema CPC6128 diversos perifé- 
ricos, cuyo funcionamiento se explica en las correspondientes secciones de este manual. 


Joysticks (bastoncillos de mando) 


El joystick AMSOFT modelo JY2 es un aparato opcional que el usuario puede desear 
adquirir si va a utilizar su CPC6128 con programas de juegos diseñados para aprove- 
char las posibilidades de control y disparo del joystick. 


Conecte el cable procedente del joystick en el zócalo marcado con MANDO A DIS- 
TANCIA en el ordenador. El CPC6128 admite dos joysticks; el segundo se conecta en 
el zócalo que hay en la peana del primero. 


Con este ordenador se puede utilizar también el joystick AMSOFT modelo JY1. 


En secciones posteriores de este manual daremos más información sobre los joysticks. 


Magnetófono de cassettes 


Los programas pueden ser leídos o grabados en cinta, en lugar de en disco. Más adelan- 
te describiremos las órdenes que indican al ordenador cuándo debe leer o enviar datos 


a la cinta o al disco. 


Para conectar el magnetófono al ordenador se requiere el cable AMSOFT CL1, o un 
cable estándar equivalente. 


Inserte el extremo del cable que termina en una clavija grande (DIN de $5 patillas) en 
el zócalo del ordenador que está marcado con CINTA. 


Inserte la clavija en la que termina el cable azul en la hembra del magnetófono que esté 
marcada con REMOTE o REM (control remoto, si lo tiene). 


Inserte la clavija en la que termina el cable rojo en la hembra del magnetófono que 
esté marcada con MIC, COMPUTER IN o INPUT (entrada). 


Inserte la clavija en la que termina el cable blanco en la hembra del magnetófono que 
esté marcada con EAR, COMPUTER OUT o OUTPUT (salida). 
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Es importante observar que el éxito en la transferencia de datos entre el CPC6128 y 
la cinta depende en gran medida del correcto ajuste del control de nivel o de volumen 
del magnetófono. Si encuentra dificultad en la grabación o lectura de los programas, 
pruebe con diferentes posiciones del control de volumen y de tono del magnetófono 
hasta optimizar los resultados, o pruebe con la otra cara de la cinta si en ella hay la 
misma grabación. 


Impresora 


El CPC6128 puede ser conectado a cualquier impresora de interfaz tipo Centronics. 
Para conectar el ordenador a la impresora AMSTRAD, basta con utilizar el cable sumi- 
nistrado con ésta. 


Para conectar cualquier otra impresora de tipo Centronics se necesita el cable 
AMSOFT PL1. 


Inserte el extremo del cable que termina en un conector plano en el zócalo del ordena- 
dor marcado con IMPRESORA. 


Inserte el otro extremo del cable, que termina en el conector de tipo Centronics, en el 
zócalo de la impresora. Si la impresora tiene abrazaderas de seguridad, fíjelas en las 
ranuras que hay en los laterales del conector. 


Más adelante daremos información sobre el manejo de la impresora. 


Segunda unidad de disco (AMSTRAD FD1) 


La unidad AMSTRAD FD1 se puede incorporar al sistema como segunda unidad de 
disco. Las ventajas de disponer de dos unidades serán particularmente evidentes para 
el usuario habitual de CP/M, pues muchos programas están diseñados para funcionar 
con los discos de programas en una unidad y los ficheros de datos en la otra. 


El sistema operativo CP/M siempre requiere que los programas se carguen desde el dis- 
co (no permite el acceso a la ROM de BASIC). CP/M permite acceder a ficheros múlti- 
ples mediante una técnica que hace posible la ejecución de programas que de otra for- 
ma no cabrían en la RAM; pero en muchas ocasiones el disco de programas contiene 
tantos, que prácticamente no queda espacio para los ficheros de datos. 


Gracias a la versatilidad de los programas de ayuda suministrados con los discos del 
sistema, todas la operaciones de mantenimiento de ficheros (copia, borrado, etc.) se 
pueden realizar con una sola unidad de disco. Sin embargo, la segunda unidad facilita 
y acelera estos procesos, y reduce notablemente el riesgo de accidentes. 


Para conectar la unidad FD1 al CPC6128 se requiere el cable AMSOFT DI?. 
—_——__—_—_—— A A A A A 
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e A ¿____KÁKÁ 


Inserte el conector plano mayor en el zócalo del ordenador que está marcado con 
UNIDAD DE DISCO 2. 


Inserte el otro conector más pequeño del cable en el zócalo de unidad FD1. 


Ambos conectores tienen marcada la cara superior; el cable plano va hacia abajo. En 
caso de duda consulte a su distribuidor. 


NO OLVIDE que, antes de encender o apagar la segunda unidad de disco, debe extraer 
los discos que pueda haber en ambas unidades y apagar el sistema. Si se modifica algu- 
na conexión mientras el sistema está encendido, lo más probable es que se pierda o alte- 
re el programa actualmente residente en la memoria. Tenga la precaución de grabar 
el programa antes de modificar las conexiones de los periféricos. 


Si tiene conectada una FD1 al CPC6128, encienda primero la FD1 con el interruptor 
deslizante que está en el panel posterior; después encienda el CPC6128 con el interrup- 
tor deslizante que está en la cara posterior del ordenador. Deberán iluminarse los dos 
pilotos, rojo y verde, de la FD1; esto indicará que la segunda unidad de disco está pre- 


parada para su uso. 
Más adelante explicaremos el funcionamiento de la segunda unidad de disco. 


Amplificador y altavoces externos 


El CPC6128 puede ser conectado a un sistema de amplificador y altavoces estereofóni- 
cos, única forma de apreciar plenamente las capacidades sonoras del ordenador. 


El cable de entrada al amplificador debe teminar en una clavija estéreo de 3.5 mm, que 
se inserta en la hembra marcada con ESTEREO en el ordenador. 


Las conexiones de la clavija deben ser las siguientes: 


Extremo de la clavija: canal izquierdo. 

Anillo intermedio: canal derecho. 

Cuerpo de la clavija: masa. 
El CPC6128 entrega a la salida ESTEREO una señal de nivel constante; así pues, el 
volumen, el balance y el tono deben ser regulados con los mandos del amplificador 
externo. : 
También se pueden conectar auriculares de alta impedancia, aunque el volumen no po- 
drá ser regulado por el mando de VOLUMEN del ordenador. Los auriculares de baja 
impedancia, que son los habitualmente utilizados con los equipos de alta fidelidad, no 
pueden ser conectados directamente al ordenador. 
Más adelante explicaremos cómo enviar sonidos a cada uno de los tres canales del 
CPC6128. 


E 
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Dispositivos de expansión 


Al ordenador CPC6128 se le pueden conectar diversos dispositivos de expansión (inter- 
faz serie, modem, lápiz fotosensible, ROMs, etc.) por medio del zócalo marcado con 
EXPANSION que está en la cara posterior del ordenador. 


También se puede conectar en ese zócalo el amplificador/sintetizador de voz AMSOFT 
modelo SSA2. 


Las conexiones del zócalo EXPANSION se describen en el capítulo titulado “Para su 
referencia ...?. 


Finalmente, antes de proseguir, asegúrese de que ha tenido en cuenta las advertencias 
que hemos hecho al principio de este manual, en la sección titulada “IMPORTANTE”: 


NOTAS DE INSTALACIÓN 6 y 7 (pág. 4) 
NOTAS DE OPERACIÓN 4 y 8 (pág. 5) 


x_e>——_—Q—_—IMMMMMMMMIMM A A A 
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Parte 3: En cuanto a los discos ... 


El AMSTRAD CPC6128 usa discos compactos de 3 pulgadas. Le sugerimos que no co- 
rra riesgos indebidos y que, para garantizar la fiabilidad de la transferencia de datos 
del ordenador a los discos, utilice solamente los discos AMSOFT CF2. Puede, no obs- 
tante, utilizar también los de otras marcas de máxima garantía. 


Inserción 


Se pueden utilizar las dos caras del disco, aunque no simultáneamente. La forma co- 
rrecta de insertar los dicos es con la etiqueta hacia fuera (visible) y con la cara que se 
va a usar hacia arriba: 
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Protección contra escritura 


En el extremo posterior izquierdo de cada cara del disco se puede ver una flecha que 
señala un pequeño orificio obturado: es el orificio de “protección contra escritura”, cu- 
ya misión es evitar el borrado accidental del contenido del disco: 


Orificio de protección 
contra escritura 


Cuando el orificio está cerrado, el ordenador puede “escribir” en el disco. En cambio, 
si el orificio está abierto, el disco está protegido contra la escritura, impidiendo el bo- 
rrado accidental de programas o datos valiosos. 


Los diversos fabricantes utilizan diferentes mecanismos de apertura y cierre del orifi- 
cio. En los discos AMSOFT CF2 el funcionamiento es como sigue: 


Para abrir el orificio, haga deslizar el pequeño obturador situado en la esquina izquier- 
da del disco: 


Orificio de protección A 
contra escritura (ABIERTO) ! 
e 
Obturador G Obturador 
ABIERTO ' CERRADO 
| | 
v 
Protección activada Protección desactivada 
PRESO NO PROTEGIDO 


Para cerrar el orificio, haga deslizar el obturador en sentido contrario. 
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En algunos discos compactos el mecanismo consiste en una pequeña palanca de plásti- 
co situada en una ranura que tienen en la esquina izquierda: 


Palanca 


Pa] == 
*t 


Orificio de protección 
contra escritura 
(CERRADO) 


Para abrir el orificio en los discos de este tipo, desplace la palanca hacia el centro del 
disco, ayudándose con la punta de un bolígrafo u objeto similar: 


Desplace la palanca 
hacia el centro. 
del disco 


Orificio de protección 
contra escritura 
(ABIERTO) 


Observe que, cualquiera que sea el mecanismo de obturación, el efecto es siempre el 
mismo: el disco queda protegido cuando el orificio está abierto. 


IMPORTANTE 


Cerciórese de que los orificios de protección de sus discos maestros de CP/M están 
abiertos. 
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Después de introducido el disco 


En la cara frontal de la unidad de disco hay un piloto rojo y un botón de eyección: 


Botón de 
eyección 


Piloto 
rojo 


Piloto 


Cuando está encendido, indica que el ordenador está leyendo datos del disco o escri- 
biendo en él. 


Si se ha conectado una segunda unidad de disco (unidad B), su piloto estará encendido 
constantemente, y se apagará cuando se encienda el de la unidad principal (unidad A). 


Botón de eyección 


Al pulsar este botón se expulsa parcialmente el disco, lo que permite que el usuario lo 
extraiga. 


Finalmente, antes de proseguir, asegúrese de que ha tenido en cuenta las advertencias 
que hemos hecho al principio de este manual, en la sección titulada IMPORTANTE:?: 


NOTAS DE OPERACIÓN 1, 3, 4, 5 y 6 (págs. 4 y 5) 


€'ÉF_ÓÓOA a 5 
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Parte 4: Manos al teclado ... 


Antes de empezar a cargar y grabar programas necesitamos familiarizarnos con algu- 
nas teclas del ordenador. Si tiene usted alguna experiencia en el manejo de los ordena- 
dores, puede omitir la lectura de esta sección. 


Encienda el ordenador y verá el mensaje inicial en la pantalla. Vamos a explicar las 
funciones de las diversas teclas: 


Las cuatro teclas que están marcadas con sendas flechas (y situadas en el extremo infe- 
rior derecho del teclado) son las “teclas de movimiento del cursor”. Estas teclas sirven, 
pues, para mover el cursor por la pantalla. 


-Púlselas todas ellas y practique hasta familiarizarse con su funcionamiento. 


La tecla [RETURN] sirve para introducir en el ordenador lo que usted ha tecleado. Una 
vez pulsada la tecla [RETURN], el cursor salta automáticamente a la línea siguiente de 
la pantalla. Siempre que escriba una orden directa o una instrucción de programa, pul- 
se [RETURN] al final. 


De ahora en adelante escribiremos [RETURN] para indicar que se debe pulsar esta tecla 
al terminar de teclear Órdenes o instrucciones de programa. 
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INTRO 


En circunstancias normales (esto es, si no se modifica por programa su función), esta 
tecla tiene el mismo efecto que [RETURN] y puede ser utilizada en su lugar. Sin embar- 
go, al igual que las restantes teclas de función del teclado numérico, [INTRO] puede 
ser redefinida, según explicaremos más adelante. 


<BORR 


Esta tecla sirve par borrar el carácter (letra, número o signo) que está a la izquierda 
del cursor. 


Teclee abcd y observe que el cursor queda inmediatamente a la derecha de la letra d. 
Para borrar la d, pulse la tecla [+ BORR]. Si la mantiene pulsada durante algún tiem- 
po, verá cómo se borran también las otras tres letras. 


MAYS 


Hay dos teclas [MAYS]T, una a cada lado del teclado. Si mantiene pulsada una de ellas 
al tiempo que pulsa una tecla literal (de letras), en la pantalla aparecerá la correspon- 
diente letra en mayúscula. 


Escriba la letra e, pulse la tecla [MAYS] y, antes de soltarla, vuelva a teclear la e. En 
la pantalla verá lo siguiente: 


eE 


Escriba ahora unos cuantos espacios (manteniendo pulsada durante algún tiempo la 
barra espaciadora). Para probar el efecto de [MAYS] con las teclas numéricas, escriba 
el 2, pulse [MAYS] y, sin soltarla, vuelva a escribir el 2. El la pantalla aparecerá lo 
siguiente: 


vd 
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Haga pruebas con las diferentes teclas de caracteres para observar su efecto con y sin 
[MAYS]. 


FIJA 
MAYS 


Su efecto es en cierto modo similar al de [MAYS]. Con sólo pulsarla una vez, las letras 
que se escriban a continuación aparecerán en mayúsculas en la pantalla, pero, en cam- 
bio, las teclas numéricas y de signos no resultan afectadas. 


Pulse [FIJA MAYS] una sola vez y luego escriba lo siguiente: 


abcdef123456 


En la pantalla aparecerá: 


ABCDEF123456 


Observe que las letras han sido convertidas a mayúsculas y que, sin embargo, los núme- 
ros no han sido convertidos a los signos que están grabados en la parte superior de las 
teclas numéricas. Para obtener estos signos se pulsa la tecla correspondiente en combi- 
nación con [MAYS]. Escriba ahora lo siguiente, manteniendo pulsada la tecla 
[MAYS]: 


abcde+ 123456 
En la pantalla aparecerá: 
ABCDEF ! "+H+$%8: 


Para volver a caracteres normales (en minúsculas), pulse por segunda vez [FIJA 
MAYSI. 


CONTROL ys 


Si lo que desea es obtener letras mayúsculas y los signos marcados en la parte superior 
de las teclas, sin tener que mantener pulsada la tecla [MAYS], puede hacer lo siguiente: 
mantenga pulsada la tecla [CONTROL] y pulse [FIJA MAYS] una sola vez. Para com- 
probar el efecto de esta combinación, escriba lo siguiente: 


Curso de introducción 1/17 


AA A AA e AA 
abcdet+t 123456 

En la pantalla aparecerá: 
ABCDEF ! "Hee 


En esta situación, se pueden escribir números utilizando el teclado numérico (teclas fO 
a f9) que está a la derecha del teclado principal. 

Manteniendo pulsada la tecla [CONTROL] al tiempo que se pulsa [FIJA MAYS] se 
vuelve al modo anterior (es decir, a minúsculas o a bloqueo de mayúsculas). Si el modo 


al que ha vuelto es a bloqueo de mayúsculas, pulse [FIJA MAYS] para retornar al mo- 
do normal, esto es, a minúsculas. 


CLR 


Esta tecla borra el carácter que está bajo el cursor. 


Escriba ABCDEFGH. El cursor ha quedado a la derecha de la última letra (la H). Pulse 
cuatro veces la tecla [+]. El cursor se ha movido cuatro posiciones hacia la izquierda, 
de modo que está superpuesto a la letra E. 


Observe que la letra E es visible a través del cursor. Pulse [CLR] y observe cómo desa- 
parece la letra E y cómo se mueven hacia la izquierda las letras FGH; bajo el cursor 
queda la F. Pulse durante unos instantes [CLA]: primero desaparece la F, y luego la 
G y la H. 


ESC 


Esta tecla se utiliza para abandonar una función que el ordenador esté realizando. Si 
se pulsa [ESC] una vez, el ordenador interrumpe su tarea momentáneamente, y la rea- 
nuda si a continuación se pulsa cualquier otra tecla. 


Si se pulsa [ESC] dos veces seguidas, el ordenador abandona definitivamente la tarea 
que está realizando y queda a la espera de otras órdenes. 


1/18 Curso de introducción 


Importante 


Cuando se han escrito 40 caracteres en una línea, el cursor está en el extremo derecho 
de ella; el siguiente carácter aparecerá automáticamente al principio de la línea siguien- 
te. Esto significa que no se debe pulsar [RETURN], a diferencia de lo que se haría si 
se estuviera trabajando con una máquina de escribir, en la que se ha de teclear el retor- 
no del carro al acercarse al final de cada línea. 


El ordenador realiza esta función automáticamente; ante un [RETURN] indebido, 
reaccionará con un mensaje de error, generalmente Syntax error, bien en el acto o 
bien más tarde, cuando se ejecute el programa. 


Syntax error (error de sintaxis) 


Cuando en la pantalla aparece el mensaje Syntax error, el ordenador está diciendo 
que no ha entendido la orden que se le ha dado. 


Por ejemplo, escriba 
printt [RETURNI 

En la pantalla aparecerá el mensaje: 
Syntax error 


Esto ocurre porque el ordenador no entiende la instrucción printt. 


Si el mismo error se comete en una línea de programa, tal como 
19 printt "abc" [RETURN 

en mensaje Syntax error no aparece hasta que se ejecuta el programa. Escriba: 
run E[RETURNI 


(Esta orden pide al ordenador que ejecute el programa que tiene en este momento alma- 
cenado en la memoria.) En la pantalla aparece: 


Syntax error in 19 
19 Brintt "abc" 


Este mensaje indica en qué línea se ha detectado el error y exhibe la línea con el cursor 
ya preparado para que el usuario pueda corregirla. 
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Lleve el cursor, con la tecla >], hasta una letra t de printt. Pulse [CLR] para borrar 
la t que sobra y luego pulse [RETURN] para introducir la línea corregida en el 
ordenador. 


Escriba ahora: 
rur [RETURN 


El ordenador ha entendido la instrucción; de hecho, ha escrito en la pantalla: 


abc 


Finalmente, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho 
al principio de este manual, en la sección titulada IMPORTANTE”: 


NOTAS DE INSTALACIÓN 4 y 5 (pág. 4) 
NOTA DE OPERACIÓN 1 (pág. 4) 
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Parte 5: Carga de programas ... 


Vamos a hacer una demostración de lo rápida que es la carga de programas grabados 
en disco. Encienda el equipo, inserte la cuarta cara de los discos maestros de CP/M 
(cara marcada con “Side 4” hacia arriba) y teclee lo siguiente: 


run "rointime.dem" (RETURNI 


Al cabo de unos segundos el programa habrá quedado cargado en la memoria del orde- 
nador. Responda a la pregunta de si está utilizando un monitor de fósforo verde 
(“green monitor”; teclee Y para “sí”, o N para “no”) y podrá ver una demostración del 
juego “Roland in Time” en la pantalla. Quizá se anime a comprarlo. 


Cuando haya terminado de ver la demostración, puede “escapar” del programa de la 
siguiente forma: pulse las teclas [CONTROL] y [MAYS] y, antes de soltarlas, pulse 
[ESC]. Esta acción reinicializa por completo la máquina; llévela a cabo siempre que 
quiera volver a la situación en que se encuentra la máquina cuando acaba de encender- 
la. (Cuando se reinicializa el ordenador de esta forma, no es necesario extraer el disco 
que pueda haber en la unidad.) 


Si el programa no se ha cargado normalmente, estudie el mensaje que ha aparecido en 
la pantalla para averiguar qué ha ocurrido. Por ejemplo, 


Drive A: disc missing 
Retry, Ignore or Cancel? 


significa que no ha insertado el disco, o que no lo ha hecho correctamente, o quizá que 
lo ha puesto en la unidad B. 


ROINTIME.DEM not found 


significa que no ha puesto el disco correcto, o que ha puesto la otra cara, o que no 
ha tecleado correctamente el nombre del programa, ROINTIME.DEM. 


Si aparece el mensaje 
Bad command 


lo más probable es que haya tecleado mal ROINTIME.DEM, quizá incluyendo un es- 
pacio o un signo de puntuación. 


Type mismatch 


significa que ha omitido las comillas (*”. 
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Syntax error 


indica que ha tecleado incorrectamente la orden run. 
El mensaje 


Drive A: read fail 
Retry, Ignore or Cancel”? 


indica que el ordenador no ha conseguido leer los datos grabados en el disco. Comprue- 
be que el disco que ha insertado es el correcto y pulse R (de Retry, “volver a intentarlo”). 
Éste es el mensaje que aparece siempre que se ha estropeado un disco por dejarlo den- 
tro de la unidad al apagar o encender el sistema. 


Cuando hayamos explicado cómo hacer copia de los discos, copie sistemáticamente to- 
dos los programas valiosos, en particular los discos maestros de CP/M. 


Carga de programas AMSOFT y del programa 
WELCOME 


Esperamos haberle abierto el apetito, así que vamos a cargar un juego. 


Inserte en la unidad un disco de juegos y teclee: 
run "disc” [RETURN] 


Al cabo de unos segundos el juego estará cargado y en marcha. Si teclea run“disc”” 
con el disco maestro de CP/M (cara 4) instalado en la unidad, podrá ver y oír el progra- 
ma de demostración “Welcome”. 


Cuando haya terminado de ver “Welcome”, reinicialice el ordenador mediante las teclas 
[CONTROL] [MAYS] [ESC]. 


La orden descrita (run”disc””) sirve para cargar casi todos los programas de AMSOFT 
grabados en disco, aunque en ocasiones habrá que teclear algo distinto. En todo caso, 
las instrucciones de carga están impresas en la etiqueta del disco; sígalas siempre 
escrupulosamente. 


Para terminar, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho 
al principio de este manual, en la sección titulada IMPORTANTE: 


NOTA DE INSTALACIÓN 6 (pág. 4) 
NOTAS DE OPERACIÓN 1, 5 y 6 (págs. 4 y 5) 


1/22 Curso de introducción 


VE E 


i 


Parte 6: Empecemos a trabajar ... 


A estas alturas ya sabemos qué podemos y qué no podemos hacer con el ordenador, 
así como la forma de conectarle periféricos. Sabemos para qué sirven algunas teclas 
del ordenador y cómo cargar programas. Ahora vamos a ver algunas de la órdenes e 
instrucciones que usted puede teclear para que empiecen a ocurrir cosas ..... 


Al ordenador le ocurre lo que a los humanos: sólo puede entender instrucciones que 
se le dan en el lenguaje que él conoce. En el caso del ordenador, ese lenguaje es BASIC 
(siglas de Beginners? All-purpose Symbolic Instruction Code, “código de instrucciones 
simbólicas de uso general para principiantes”). Las palabras del vocabulario de BASIC 
son la llamadas “palabras clave”, “palabras reservadas” o “palabras de instrucción”. Ca- 
da una de ellas ordena a la máquina que realice una determinada función. Todos los 
lenguajes tienen sus reglas gramaticales, y BASIC no es la excepción. Aquí, el concepto 
de gramática se reduce al de “sintaxis”; de ahí que el ordenador tenga la amabilidad de 
decirnos de vez en cuando que hemos cometido un error de sintaxis: Syntax error. 


Introducción a las palabras clave del BASIC de 
AMSTRAD 


En el tercer capítulo, titulado “Lista completa de las palabras clave del BASIC del 
ASMTRAD”, daremos una descripción de todas las palabras del dialecto de BASIC que 
entiende este ordenador. En esta sección vamos a presentar sólo las que se utilizan con 
mayor frecuencia. 


CLS 
Para borrar la pantalla escriba: 
cls [RETURN] 


Como puede observar, la pantalla efectivamente se borra y en su extremo superior iz- 
quierdo aparecen la palabra Ready y el cursor WM. 


Para introducir bras clave d ayúscula: 


minúsculas. 
RRA 
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PRINT 


Esta instrucción sirve para hacer que el ordenador escriba en la pantalla caracteres suel- 
tos, palabras completas, frases o números. Teclee la siguiente orden: 


print "hola" [RETURN] 


En la pantalla puede ver: 


hola 


sn... 


Las comillas *”*** indican al ordenador qué es lo que debe escribir. La palabra hola apa- 
reció en la pantalla en cuanto se pulsó [RETURN]. Teclee 


cls [RETURN] 


para borrar la pantalla. 


RUN 
AA 


En el ejemplo anterior hemos visto cómo obedece el ordenador una orden directa. Pero 
esto no siempre es deseable, ya que el ordenador olvida la orden inmediatamente des- 
pués de ejecutarla. Podemos almacenar en la memoria del ordenador una sucesión de 
instrucciones para que más tarde sean ejecutadas en un orden determinado. Tal suce- 
sión de instrucciones constituirá un programa. Las instrucciones de BASIC que pode- 
mos incluir en un programa tienen la forma que hemos visto, pero van precedidas de 
un número de línea. Si el programa consta de más de una instrucción, los números de 
línea indican al ordenador en qué orden debe ejecutarlas. Cuando después de teclear 
una línea de instrucción se pulsa [RETURN!I, la línea queda almacenada en la memoria 
hasta que pidamos al ordenador que ejecute el programa. Escriba lo siguiente: 


10 print "hola" [RETURN] 


Observe que en este caso, aunque ha pulsado [RETURN], la palabra hola no ha apare- 
cido en la pantalla, sino que ha quedado almacenada en la memoria del ordenador, 
incluida en la línea de programa. Para ejecutar este pequeño programa debemos dar 
al ordenador la orden directa run. Escriba 


run [RETURN] 


Ahora sí aparece la palabra hola en la pantalla. 


Observe algo interesante: en lugar de escribir la palabra print completa, basta con te- 
clear el signo de interrogación ?; por ejemplo, 


19? "hola" [RETURN] 
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LIST 


—mmo 
Cuando se tiene un programa almacenado en la memoria, se puede comprobar su con- 
tenido haciendo un “listado”. Escriba 


list [RETURN] 
En la pantalla aparece 
10 PRINT "hola" 


que es la única línea de nuestro programa. 


Observe que ahora la palabra PRINT está en mayúsculas. Esto nos indica que el orde- 
nador ha reconocido PRINT como palabra clave de BASIC. 


Escriba cis[RETU RN] para borrar la pantalla. Observe que, aunque se ha borrado el 
texto que había en la pantalla, el programa sigue estando en la memoria del ordenador. 


GOTO ' 
ANA. 


Esta instrucción pide al ordenador que salte de la línea actual a la línea especificada, 
para no ejecutar un grupo de instrucciones, si el salto es hacia delante, o para formar 
un bucle, si el salto es hacia atrás. Escriba 


19 print "hola" [RETURNI 
zg goto 18 [RETURNI 


y luego 
run [RETURN] 


Como puede ver, el ordenador escribe repetidamente la palabra hola, a la izquierda 
de la pantalla, saltando cada vez a la línea siguiente. La razón es que, al llegar a la línea 
20, la instrucción goto 10 reenvía el programa a la línea 10. 


Para detener el programa, pulse [ESC] una vez. Para reanudarlo, pulse cualquier otra 
tecla. Para detenerlo definitivamente, de forma que se pueda introducir otras instruc- 
ciones, pulse [ESC] dos veces. 


Escriba ahora 


cls [RETURNI 


para borrar la pantalla. 
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Para inhibir el salto a la línea siguiente de la pantalla cada vez que el ordenador escriba 
hola, introduzca nuevamente el programa anterior, pero poniendo ahora un signo de 
punto y coma (;) al final de las comillas: 


19 print "hola"5 [RETURN] 
2464 goto 19 [RETURN] 
- run [RETURN] 


El punto y coma indica al ordenador que debe escribir el siguiente grupo de caracteres 
inmediatamente a la derecha del anterior (suponiendo que quepan en la misma línea). 


Para detener este programa pulse [ESC] dos veces. Escriba otra vez la línea 10, pero 
poniendo una coma (.) en lugar del punto y coma (;): 


19 print "hola", [RETURN] 
run [RETURN] 


Como puede observar, la coma ha indicado al ordenador que escriba el siguiente grupo 
de caracteres 13 posiciones a la derecha del lugar en que empezó a escribir el anterior. 
Esta función es útil cuando se quiere visualizar información en columnas. No obstante, 
si el número de caracteres del grupo es mayor que 12, la escritura empezará otras 13 
posiciones más a la derecha, de forma que entre columnas siempre quedará algún 
espacio. 


Este número, 13, es modificable con la instrucción ZONE, que describiremos más 
adelante. 


Para detener este programa, pulse [ESC] dos veces. Para borrar completamente la 
memoria del ordenador, pulse las teclas [CONTROL] y [MAYS] y, antes de soltarlas, 
pulse [ESC]. j 


INPUT 


Esta instrucción hace que el ordenador quede a la espera de que el usuario introduzca 
información por el teclado; por ejemplo, en respuesta a alguna pregunta. 
Escriba lo siguiente: 

19 input "cuantos años tienes"jedad [RETURN] 

289 print "pues no aparentas tener"jedad; 


"aÑos." [RETURN] 
run [RETURN] 


En la pantalla aparece la pregunta: 


cuantos aÑos tienes? 


O 
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Escriba su edad y pulse [RETURN]. Si, por ejemplo, su edad es 18 años, el programa 
escribe lo siguiente: 


pues no aparentas tener 18 años. 


Este ejemplo ilustra la utilización de input combinada con una variable numérica. He- 
mos puesto la palabra edad al final de la línea 10, y por consiguiente en la memoria, 
para que el ordenador pueda asociarla al número que el usuario introduzca; después, 
en la línea 20, en lugar de edad escribirá ese número. Nada nos obligaba a elegir preci- 
samente ese nombre, edad, y podíamos haber utilizado una letra cualquiera, por ejem- 
plo, b. 

Reinicialice el ordenador para borrar la memoria (teclas [CONTROL] [MAYS] [ESC])). 
Si queremos captar por el teclado una respuesta que esté formada por caracteres cuales- 
quiera (letras solas o letras mezcladas con números), debemos poner el signo de dólar 
($) al final del nombre de la variable. Las variables de este tipo son las que denomina- 
mos variables literales. 


Escriba el siguiente programa (observe que en la línea 20 hay que poner un espacio des- 
pués de la primera coma, pero no antes de la segunda): ds 


16 input "como te llamas";nombresw [RETURN] 

29 print "hola, *jnombres+$;”, yo me llamo 
Rolando” [RETURNI 

run [RETURNI 


En la pantalla puede ver: 
como te llamas? 


Escriba su nombre y luego pulse [RETURN]. Si el nombre introducido es, por ejemplo, 
Manolo, el programa escribe: 


hola, Manolo, yo me llamo Rolando 


En este caso hemos usado nombre$ como nombre de la variable literal, pero perfecta- 
mente podríamos haber elegido una letra cualquiera, por ejemplo, a$. Vamos a combi- 
nar los dos ejemplos anteriores en un solo programa. 


Reinicialice la máquina con [CONTROL] [MAYS] [ESC]. Escriba lo siguiente: 


5 cls [RETURN]I 

19 input "como te llamas"ja$ [RETURN] 

29 input "cuantos aÑos tienes";jb [RETURNI 

39 print "desde luego, "ja$5", no aparentas 
tener"5b;3"afios" [RETURNI 

run [RETURN]I 


A e 5 5 5 e o. 
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En este programa hemos utilizado dos variables: a$ para representar el nombre y b 
para representar la edad. En la pantalla aparece la primera pregunta: 


como te llamas? 


Escriba su nombre (supongamos que es Manolo) y luego pulse [RETURN]. El ordena- 
dor le pregunta ahora: 


cuantos alos tienes? 


Escriba su edad (supongamos que es 18 años) y luego pulse [RETURN]. 


Si lo que hemos supuesto es cierto, en la pantalla aparecerá la siguiente frase: 


desde luego, Manolo, no aparentas tener 18 años 


Edición de programas 


Si alguna de las líneas del programa anterior hubiera sido mecanografiada incorrecta- 
mente, lo que podría provocar el mensaje de error Syntax error o algún otro, en lugar 
de escribirla de nuevo es posible corregirla (*editarla' es como se dice en informática). 
Para ilustrar cómo hacerlo, vamos a escribir incorrectamente el programa: 


3 clss [RETURN1 

19 input "como t llamas"ja$ [RETURN] 

28 input "cuantos aÑos tienes";jb [RETURN] 

39 print "desde luego,"ja$;", no aparentas 
tener";jb53"aftos" [RETURNI 


En este programa hay tres errores: 


En la línea 5 hemos escrito clss en lugar de cls. 

En la línea 10 hemos escrito t en lugar de te. 

En la línea 30 hemos olvidado poner un espacio entre la coma y el signo de cerrar 
comillas. 


Hay tres métodos para corregir un programa. El primero consiste en escribir nueva- 
mente la línea errónea. Al hacerlo, la línea nueva sustituye a la que había en la memoria 
con el mismo número. 


El segundo es el “método del cursor de edición”. 


El tercero es el “método del cursor de copia?. 
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Método del cursor de edición 


Vamos a corregir el error de la línea 5. 


Escriba lo siguiente: 
edit 5 [RETURN] 


En la pantalla aparece la línea 5, por debajo de la 30, con el cursor situado sobre la 
c de clss. 


Para suprimir la s que sobra, pulse la tecla de movimiento del cursor —] hasta que éste 
quede sobre la última s de clss; pulse la tecla [CLR] y observe cómo desaparece la s. 


A continuación pulse [RETURN] para introducir la versión corregida de la línea 5 en 
la memoria. Escriba 


list [RETURN 


y comprobará que la línea ha quedado corregida. 


La orden AUTO, que descibiremos más adelante en este manual, se puede combinar 
con este método para corregir un grupo de líneas sucesivas. 


Método del cursor de copia 


El cursor de copia es un segundo cursor, distinto del que puede ver en este momento 
en la pantalla, que aparece cuando se pulsa [MAYS] en combinación con alguna de 
las teclas de movimiento del cursor. De esta forma, el cursor de copia se separa del cur- 
sor ordinario y puede ser llevado a cualquier lugar de la pantalla. 


Para corregir los errores de las líneas 10 y 30, pulse la tecla [MAYS] y, sin soltarla, 
pulse [1] hasta llevar el cursor de copia al principio de la línea 10. Observe que el cursor 
principal no se ha movido, por lo que hay dos cursores en la pantalla. Ahora pulse va- 
rias veces [COPIA] hasta que el cursor de copia esté sobre el espacio que hay entre la 
t y la palabra llamas. Observe que el principio de la línea 10 ha sido copiado en la 
última línea de la pantalla y que el cursor principal se ha detenido en la misma columna 
que el de copia. Escriba la letra e, que aparecerá solamente en la línea inferior. 


El cursor ordinario se ha movido, pero el de copia se ha quedado donde estaba. Pulse 
ahora [COPIA] hasta completar la copia de la línea 10. Pulse [RETURN] para transfe- 
rir esta versión de la línea 10 a la memoria. El cursor de copia desaparece y el cursor 
ordinario queda por debajo de la nueva línea 10. 


e e e — — 
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Para corregir el otro error, mantenga pulsada la tecla [MAYS] y lleve el cursor de copia 
con la tecla [1] hasta el principio de la línea 30, Pulse [COPIA] hasta que el cursor de 
copia quede sobre las comillas que siguen a la coma. Pulse la barra espaciadora una 
vez, con lo que se inserta un espacio en la línea nueva. Pulse [COPIA] y no la suelte 
hasta que haya terminado de copiar el resto de la línea 30; pulse entonces [RETURN]. 


Compruebe que el programa ha quedado correctamente almacenado en la memoria 
escribiendo: 


list [RETURN] 


Nota. Para llevar el cursor (durante el proceso de edición) al principio o al final de una 
línea, pulse la tecla ¡| o la [>| una vez manteniendo pulsada al mismo tiempo la tecla 
[CONTROL]. 


Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. 


1F 


Las palabras clave IF (si) y THEN (entonces) se combinan para hacer que el ordenador 
realice una determinada acción en función del resultado de una comprobación especifi- 
cada. Por ejemplo, en la instrucción 


if 1+1=2 then print "correcto" [RETURN] 


el ordenador comprueba si es cierto que 1+1=2 y obra en consecuencia. 


La palabra clave ELSE (si no) da un segundo curso de acción para el caso de que la 
comprobación dé como resultado “falso” (o sea, que la condición no se cumpla). Por 
ejemplo, 


if 1+1=9 then print "correcto" else print "falso" 
[RETURN] 


Vamos a ampliar nuestro programa anterior con la instrucción IF ... THEN. Escriba 
lo siguiente: 


S cls [RETURN1 

19 input "como te llamas";ja$ [RETURN] 

28 input "cuantos afos tienes";jedad [RETURN] 

38 if edad < 13 then 69 [RETURN] 

49 if edad < 28 then 79 [RETURN] 

50 if edad > 19 then 89 [RETURN] 

69 print "Bueno, "ja$;3", todavia no eres un 
adolescente a los"jedad;"afos":end [RETURN] 

749 print "Bueno, "ja$;5", a tus"jedad;i"aÑos eres 


_-x ——_- __>D— 
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un adolescente":end [RETURN] 
89 print "Que le vamos a hacer, "jaj", ya ho eres 
un adolescente a tus"jedad5"afos" [RETURNI 


(Observe que hemos introducido dos símbolos nuevos: <, que significa “menor que” 
y está junto a la tecla de la M, y >, que significa “mayor que” y está junto a la tecla 
de <.) Para comprobar que el programa ha quedado correctamente introducido en la 


memoria escriba 
list [RETURN] 
y a continuación 


run [RETURN]J 


Responda a las preguntas que le haga el ordenador y vea qué ocurre. 
En este ejemplo puede observar el efecto de la instrucción IF ... THEN. También he- 


“ mos introducido una palabra clave nueva: END (fin); su efecto es concluir la ejecución 


del programa. Si no estuviera END en la línea 60, el programa continuaría en la línea 
70. Por lo mismo, si no hubiéramos puesto END en la línea 70, el programa no termi- 
naría en ella, sino que ejecutaría también la 80. El signo de dos puntos (:) que precede 
a la palabra END separa esta palabra de la instrucción anterior. Este signo se puede 
utilizar para separar instrucciones cuando interese poner varias en una misma línea de 
programa. También hemos incluido la línea 5, en la que borramos la pantalla. En lo 
sucesivo seguiremos haciéndolo, para obtener programas más “elegantes” y evitar 
confusiones. 


Reinicialice la máquina pulsando las teclas [CONTROL] [MAYS] [ESC]. 


FOR ... NEXT 


Estas palabras clave se utilizan cuando se desea que una parte del programa se repita 
cierto número de veces. Las instrucciones que deban repetirse son las que se incluyen 
dentro del bucle FOR ... NEXT (para ... siguiente). 


Escriba lo siguiente: 


5 cls [RETURN] 

19 tor a=1 to 19 [RETURN] 

29 print "operacion numero: "ja [RETURNI 
39 next a [RETURNJ 

run [RETURN]J 


Como puede ver, la acción de la línea 20 ha sido realizada 10 veces, tal como exige la 
instrucción FOR de la línea 10. Observe también cómo se ha ido incrementando de 1 


en 1 la variable a. 
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La palabra clave STEP (paso) se puede incluir en la instrucción FOR ... NEXT para 
especificar la forma en que debe incrementarse o decrementarse la variable de control 
del bucle. Por ejemplo, modifique la línea 10 y ejecute el programa: 


19 for a=19 to 5% step S [RETURNI] 


El paso también puede ser negativo. Por ejemplo: 


19 for a=1998 to 4 step -19 [RETURN] 
run ERETURNIJ 


REM 


REM es abreviatura de REMark (observación, comentario). Esta instrucción indica al 
ordenador que debe ignorar todo lo que haya después de ella en la línea de programa. 
Sirve, pues, para hacer anotaciones al programa; por ejemplo, el título, el significado 
de una variable, etc.: 


1% REM Fulminar los invasores [RETURNI 
28 S=5¿REM numero de supervivientes ERETURNI 


El signo de comilla * (que se obtiene de la tecla del 7 con [SHIFT] es a su vez abreviatu- 
ra de :REM. Por ejemplo, 


19 *Fulminar los invasores [RETURN] 
20 S=5 'numero de supervivientes [RETURN] 


GOSUB 


Si en un programa hay un grupo de instrucciones que deban ser ejecutadas varias veces, 
no es necesario escribirlas reiteradamente cada vez que el programa las necesite. Lo que 
se hace es ponerlas en una “subrutina”, la cual puede ser invocada siempre que se desee 
mediante la instrucción GOSUB (ir a subrutina) seguida del número de la línea donde 
empieza la subrutina. El final de la subrutina se señala con la instrucción RETURN 
(retorno). Cuando el programa llega a RETURN, la ejecución salta a la instrucción si- 
guiente al GOSUB que invocó la subrutina. 


(Los dos programas siguientes no hacen más que escribir la letra de una canción popu- 
lar en la pantalla, y por lo tanto no es necesario que se tome la molestia de introducirlos 
en el ordenador. Los hemos incluido aquí solamente para demostrar cómo se pueden 
utilizar las subrutinas para realizar tareas repetidas.) 


xÉE-E-ÓáE_Ó_Aá_ _ 02 A e e ++ 
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En el siguiente programa: 


19 MODE 2 [RETURN] 
29 PRINT "Dicen que no la quieres y la regalas” 
— [RETURN] 
30 PRINT "Peritas de Don Guindo y uvas tempranas" 
[RETURN]J 
48 PRINT "Al tribulete" [RETURN] 
59 PRINT "Que no quiere bailar con usted” [RETURN 
+. 68 PRINT "Dejala, dejala sola” [RETURN] 
748 PRINT [RETURN] 
389 PRINT "Es tu cara lo mismo que luna blanca” 
nen [RETURN] 
99 PRINT "Y tus ojos luceros que la acompañan" 
En [RETURN] 
199 PRINT "Al tribulete" [RETURNI 
119 PRINT "Que no quiere bailar con usted" [RETURN] 
NN 120 PRINT "Dejala, dejala sola” [RETURN] 
139 PRINT [RETURNI 
E 149 PRINT "Tengo yo comparado, nifta, tu rostro" 
T[RETURNI 
159 PRINT "Con la luna de enero y el sol de agosto" 
Es [RETURN] 
189 PRINT "Al tribulete" [ENTER] 
199 PRINT "Que no quiere bailar con usted” [RETURNIJ 
E 269 PRINT "Dejala, dejala sola" [RETURN] 
219 PRINT [RETURN] 
5 run [RETURNI 


puede observar que hemos repetido varias instrucciones. Por ejemplo, la línea 40 (prin- 
Ae cipio del estribillo) está repetida en la 100 y en la 180. Pongamos todo el estribillo en 

una subrutina, con RETURN al final; entonces podremos “llamarlo” con la instrucción 
qe GOSUB 180 cada vez que lo necesitemos. El programa queda de la siguiente forma: 


19 MODE 2 [RETURN] 
5 298 PRINT "Dicen que no la quieres y la regalas" 
[RETURN] 
30 PRINT "Peritas de Don Guindo y uvas tempranas" 
= [RETURN] 
49 GOSUB 184 [RETURN] 
d 89 PRINT "Es tu cara lo mismo que luna blanca" 
[RETURN] 
98 PRINT "Y tus ojos luceros que la acompañan" 
Pe [RETURN] 
199 GOSUB 184 [RETURN] 
140 PRINT "Tengo yo comparado, nifía, tu rostro” 


Ke 
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[RETURN] 

150 PRINT "Con la luna de enero y el sol de agosto" 
C(RETURN] 

179 END [RETURNI] 

189 PRINT "Al tribulete" C(RETURNI] 

199 PRINT "Que no quiere bailar con usted" [RETURN] 

2088 PRINT "Dejala, dejala sola" [RETURN] 

219 PRINT [(RETURNI 

2246 RETURN [RETURNI 

run [RETURNI] 


El ahorro de trabajo es evidente. El correcto diseño de subrutinas es una faceta esencial 
de la informática. Con ellas se puede escribir programas “estructurados”; son la base 
para la adquisición de buenos hábitos de programación. 


Cuando escriba subrutinas, tenga en cuenta que no está obligado a saltar siempre a su 
primera línea. Por ejemplo, si hay una rutina en las líneas 500 a 800, podría interesar 
llamarla con GOSUB 500, con GOSUB 640 o con GOSUB 790, según las funciones 
de la subrutina que se desee ejecutar. 


Observe que en el programa anterior hemos incluido la instrucción END en la línea 170 
para aislar la subrutina del resto del programa. De no haberlo hecho, el programa pasa- 
ría de la línea 160 a la 180. 


Aritmética sencilla 


El ordenador se puede utilizar como calculadora. 


Para aprender cómo hacerlo, pruebe los siguientes ejemplos. En esta sección utilizamos 
el signo de interrogación ? como abreviatura de print. El ordenador escribe la respues- 
ta en cuanto se pulsa [RETURN]. 


Suma 
Escriba: 
23+3 [RETURN] 
ñ ; 


(No se teclea el signo =). 


¡FORA 
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Escriba: 


?8+4 [RETURN] 
12 


Resta 
(no confundir el signo menos * —” con el de subrayado *—”). 
Escriba: 


24-3 [RETURN J 
1 


Escriba: 


28-94 [RETURN] 
4 


Multiplicación 
(el signo de multiplicación es el asterisco +). 


Escriba: 
23%3 [TRETURNI1 

o 

Escriba: 


284 [RETURNI 
32 


División 
(el signo de dividir es la barra inclinada hacia la derecha, /). 


Escriba: 


23/3 [RETURN] 
1 


e 5 5 5 1 — 
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Escriba: 


?8/4 [RETURNI 
2 


División entera 


(es la división en la que se ignora el resto; su signo es la barra inclinada hacia la izquier- 


da M). 


Escriba: 


71016 [RETURNI 
1 


Escriba: 
22813 [RETURN J 
é 
Módulo 


(la función MOD da el resto de la división entera). 


Escriba: 


?198 MOD 4 [RETURNI 
2 


Escriba: 
29 MOD 3 [RETURNI 
g 
Raíz cuadrada 


Para hallar la raíz cuadrada de un número se utiliza la función sqrí ). El número del 
que se va a extraer la raíz (esto es, el radicando) se pone entre los paréntesis. 


Escriba: 


?sqr(1ó6) [RETURN] 
4 


(esto significa 16). 
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Escriba: 


?sqr(198) [RETURNI 
19 


Potenciación 


(en los ordenadores el signo de “elevar a una potencia” es la flecha hacia arriba, que 
en el AMSTRAD se obtiene de la tecla de A sin [IMAYS)). 


La potenciación es la operación de elevar un número a una potencia; es decir, multipli- 
carlo por sí mismo tantas veces como indica el exponente. Por ejemplo, 3 al cuadrado 
(32), 3 al cubo (3?), 3 a la cuarta (3%), etc. 


Escriba: 


72343 [RETURNJ 
27 


(esto significa 3?). 


Escriba: 


7814 [RETURN] 


(esto significa 8%). 


Raíz cúbica 


Extraer la raíz cúbica de un número es lo mismo que elevarlo a la potencia %. 


Así, para hallar la raíz cúbica de 27 (Y27) escriba: . 


?2224(1/3) [RETURNI 
3 


Para hallar la raíz cúbica de 125 escriba: 
21251(1/3) [RETURNIJ 
5 
Operaciones combinadas (+, —, *, /) 


El ordenador entiende correctamente las operaciones combinadas, pero es necesario sa- 
ber con qué orden de prioridad las realiza. 
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La primera prioridad es para la multiplicación y la división; la segunda, para la suma 
y la resta. Este orden de prioridad es válido solamente para los cálculos en los que no 
intervienen más que estas operaciones. 


Si la operación fuera: 
3+7-2*7/4 


se podría pensar que el ordenador la realizaría de la forma: 


347-2 *7 /4 
=8 *7 /4 
=56/4 

=14 


Sin embargo, el proceso de cálculo es como sigue: 


34+7-2*7/4 
=34+7-14/4 
=3+7-3.5 
=10-3.5 
=6.5 


Compruébelo escribiendo 


23+2-2X7/4 TRETURNI 
6.5 


Para alterar este orden se pueden incluir paréntesis según convenga. El ordenador reali- 


za las operaciones internas a los paréntesis antes que las externas. Compruébelo escri- 
biendo lo siguiente: 


2 (3+7-2)1%7/4 [RETURN] 
14 


El orden completo de prioridad de las operaciones matemáticas es el siguiente: 
? Potenciación 
MOD Módulo 
— Cambio de signo 
* y / Multiplicación y división 
X División entera 
+ y — Suma y resta 
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Más exponentes 


Cuando en los cálculos van a intervenir números muy grandes o muy pequeños, es con- 
veniente a veces utilizar notación científica. La letra E (mayúscula o minúscula) indica 
que el número que está a su derecha es una potencia de 10. 


Por ejemplo, 300 es lo mismo que 3 x 10?. En notación científica escribiríamos 3E2. 
Análogamente, 0.03 es igual a 3x 10 72. en notación científica, 3E—2. Pruebe los si- 
guientes ejemplos. 


Puede escribir 


239190 [RETURN] 
399 


o bien 


?3E1X1E1 [RETURN] 
399 


2300019988 [RETURNI ... obien ... ?3E3X1E3 [RETURN] 
38899099 


23900%9.891 [RETURNI ... obiéer ... ?3ESXÍE-3 [RETURN] 
3 


Ke 5 5 1 e a ——————— —  —— 
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Parte 7: Grábelo en disco ... 


Ahora que ha ejercitado su habilidad como mecanógrafo escribiendo unas cuantas ins- 
trucciones, seguramente querrá saber cómo grabar en disco un programa almacenado 
en la memoria del ordenador, para luego cargarlo del disco al ordenador. 


Aunque usted tenga experiencia en la grabación y carga de programas en cinta, hay 
algunas peculiaridades del sistema de grabación en disco que es necesario tener en 
cuenta. 


Hay dos diferencias fundamentales entre los discos y las cintas. La primera es que, a 
diferencia de lo que ocurre con la cintas, para grabar en un disco no basta con sacarlo 
de la caja e introducirlo en la unidad. Los discos nuevos tienen que ser “formateados' 
o “inicializados”; enseguida veremos cómo hacerlo. 


La otra diferencia tiene que ver con los nombres que se puede dar a los ficheros. En 
el sistema de grabación en cinta, los nombres de los ficheros prácticamente no siguen 
ninguna regla, salvo la de la longitud; incluso se pueden grabar ficheros sin nombre. 
No ocurre así con el sistema de grabación en disco, en el que los nombres de los ficheros 
deben atenerse a las normas de CP/M, como veremos más adelante. 


Inicialización de discos 


Antes de poder escribir datos en un disco virgen es necesario inicializarlo o formatear- 
lo. Esta operación consiste en preparar una especie de estantería en el disco; los estantes 
son los lugares en los que más tarde se va a almacenar la información. 


Al inicializar un disco, éste queda dividido en 360 zonas: 


Pista 39 


Caja de protección 


Sector 


Pista 0 
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Radialmente el disco se divide en 40 pistas circulares, desde la número 0, que es la más 
externa, hasta la 39. Cada pista se divide en 9 sectores. 


Cada sector puede almacenar 512 bytes; por lo tanto, la capacidad total de cada cara 
del disco es de 180K. 


Primeros pasos en la utilización de los discos 
maestros de CP/M 


Antes de poder grabar programas en un disco virgen es necesario inicializarlo, y para 
ello se requiere la cara 1 de los discos maestros de CP/M (suministrados con el 


ordenador). 


Encienda el equipo e inserte la cara 1 de los discos de CP/M en la unidad. Si su sistema 
dispone de dos unidades de disco, utilice la incorporada en el ordenador (unidad A). 


Escriba lo siguiente: 
¿com ERETURN] 


(El símbolo | se obtiene de la tecla GQ con IMAYS].) 


Al cabo de unos segundos aparecerá en la pantalla el siguiente mensaje: 


CcP/mM Plus Amstrad Consumer Electronics plc 


Esto es un mensaje de saludo que indica que el ordenador está siendo controlado por 
sistema operativo CP/M. 


Los caracteres A> constituyen un inductor, análogo al Ready de BASIC, que avisa 
al usuario de que el ordenador está a la espera de sus instrucciones. 


Una vez cargado CP/M, ya no se pueden teclear instrucciones de BASIC, pues el orde- 
nador no las entendería. 


Por ejemplo, si escribimos 
cls [RETURNI 

el ddr repite lo tecleado junto con un signo de interrogación: 
CcLSs? 


lo que indica que no ha entendido la instrucción. 


e e o == 2 —KÉ<Á 
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E A A AAA 
Par dar un breve repaso a algunas órdenes de CP/M, escriba: 


dir [RETURN] 


En la pantalla aparece una lista del contenido del disco, incluidas algunas órdenes tran- 
sitorias. Una de ellas es DISCKIT3. Escriba: 


disckit3 [RETURN] 


Al cabo de unos instantes verá aparecer en la pantalla el mensaje de presentación de 
DISCKIT3, seguido de: 


Dne drive found 


Esto confirma que estamos ejecutando el programa de ayuda DISC KIT y que el orde- 
nador sólo ha detectado una unidad de disco (la incorporada en la máquina). 


En cambio, si está conectada la segunda unidad de disco, el mensaje será: 
Two drives found 


En la parte inferior de la pantalla se puede ver el siguiente menú: 


Copy [a Copiar 

Format a! Inicializar 
Verify ES Verificar 

Exit from program La Fin del programa 


Es el menú principal del programa DISCKIT3. Los números recuadrados hacen refe- 
rencia a las teclas de función del teclado numérico (marcadas con f0, f1, f4 y f7). Pul- 
sando una de estas teclas se elige la opción deseada. 


Obsérvese que la opción O de este menú hace que se abandone el programa DISCKIT3 
y se vuelva al modo directo de consola de CP/M (inductor A>). 


Como lo que queremos hacer ahora es inicializar un disco, pulse la tecla de función 
número 4 (f4). 


PRECAUCIÓN 
AL INICIALIZAR UN DISCO SE BORRA SU CONTENIDO ANTERIOR. 


a ____u _——— Ñ___ _______ nn a 
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El programa ofrece un nuevo menú con las diferentes opciones de formato: 


System format 9 Formato de sistema 

Data format 6 Formato de datos 

Vendor format 3 Formato comercial 
PA 

Exit menu Vuelta al menú 


Pulsando una de las teclas de función (f3, f6 o f9) se selecciona el formato deseado. 
Más adelante explicaremos las diferencias entre los diversos formatos. Por ahora, elija 
el formato de datos pulsando la tecla de función número 6 (f6). 


Obsérvese que al pulsar la tecla . (que está debajo de f3, f6 y f9) se sale de la opción 
de inicialización y se vuelve al menú principal del programa DISCKIT3. 


Después de pulsar la tecla de función número 6 (y suponiendo que no tenga conectada 
la segunda unidad de disco) podrá ver en la pantalla lo siguiente: 


y Inicializar con 
Y Format as Data formato de datos 


Any other key to exit menu Cualquier otra tecla 
para volver al menú 


En este momento debe extraer el disco de CP/M e insertar el disco nuevo, con la cara 
que desee inicializar hacia arriba. 


Pulse ahora la tecla Y (de yes, *“si””), lo que equivale a decirle al ordenador: “*de acuer- 
do, inicializa el disco”. 


El proceso de inicialización comienza con la pista O y termina con la 39; en cada mo- 
mento, el número de la pista que está siendo inicializada aparece en el extremo superior 
izquierdo de la pantalla. 


El sistema no permite inicializar un disco que tenga abierto el orificio de protección 
contra escritura. Si lo intenta, el ordenador emite el mensaje: 


Disc write-protected El disco está protegido contra escritura 
Insert disc to format Insertar disco a inicializar 
R-etry or C-ancel R-eintentar o C-ancelar 
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Lo que se debe hacer en este caso es pulsar C para cancelar la operación, extraer el 
disco e insertar el disco que sí se quiere inicializar, con el orificio de protección 
obturado. 


Es muy importante no cerrar los orificios de protección de los discos que contengan 
programas valiosos. NO CERRAR NUNCA los orificios de protección de los discos 
maestros de CP/M. 


Cuando termina la inicialización, el ordenador le pide que extraiga el disco recién ini- 
cializado y que pulse cualquier tecla para continuar. 


Una vez hecho esto, puede inicializar otro disco insertándolo en la unidad y pulsando 
de nuevo la tecla Y. Este proceso se puede repetir tantas veces como discos tenga que 
inicializar con este formato concreto. 


Cuando no haya más discos que inicializar, pulse cualquier tecla (distinta de la Y) para 
volver al menú. 


Más adelante explicaremos las opciones Copy y Verify. Por ahora nos basta con haber 
aprendido a inicializar discos con CP/M. Reinicialice la máquina con [CONTROL] 
[MAYS] [ESC]. 


Guarde siempre en lugar seguro los discos maestros de CP/M, que son, literalmente, 
la llave del sistema. En un capítulo posterior explicaremos cómo hacer “copias de traba- 
jo” de los discos de CP/M, de forma que pueda guardar los originales a salvo de toda 
posibilidad de accidente. 


Inicialización en un sistema de 2 unidades de 
disco 


Siga las instrucciones anteriores: pulse f4 en el menú principal de DISCKIT3 para elegir 
la opción Format (inicialización) y luego pulse la tecla f6 para elegir Data format (for- 
mato de datos). 


El ordenador le muestra un tercer menú, en el que se puede elegir la unidad de disco 
que se desee utilizar: 


Format A; E] Inicializar en A: 
Format B: 5 Inicializar en B: 
Exit menu 2 Vuelta al menú 


—Ñ— __——_—_ => 
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Para no tener que extraer el disco de CP/M (cara 1) de la unidad A, se puede elegir, 
pulsando la tecla f5, la opción Format B:. Ponga en la unidad B el disco que desee 
inicializar. 

Después de elegida esta opción, puede pulsar Y para permitir que continúe el proceso 
de inicialización, o bien cualquier otra tecla para volver al menú principal de DISCKIT3. 


Si elige la opción Format A: (tecla f8), NO OLVIDE extraer de la unidad A el disco 
de CP/M. Inserte luego en ella el disco que desee inicializar. 


NO SE EXPONGA NUNCA AL RIESGO DE BORRAR 
LOS DISCOS MAESTROS DE CP/M 


Ahora que ya tenemos uno o dos discos preparados, vamos a empezar a transferir pro- 
gramas de BASIC del ordenador al disco y viceversa. 


Grabación de un programa en disco 


Cuando se tiene un programa en la memoria del ordenador, se lo puede grabar en disco 
mediante la orden 


save "nombrefi" [RETURN]I 


Observe que es indispensable dar un nombre al programa. 


El nombre de un fichero grabado en disco consta de dos partes (campos). La primera 
es obligatoria y puede contener hasta 8 caracteres. Se pueden utilizar letras o números, 
pero no espacios ni signos de puntuación. Este primer campo suele contener el nombre 


del programa. 

El segundo campo es opcional. Puede contener hasta 3 caracteres que no sean ni espa- 
cios ni signos de puntuación. Los dos campos se separan por un punto (.). 

Si el usuario no especifica el segundo campo, el sistema le asigna automáticamente un 
distintivo: .BAS para ficheros de BASIC o .BIN para ficheros binarios (en código de 
máquina). 

Para practicar la grabación en disco, introduzca un programa corto en la memoria del 
ordenador, inserte en la unidad un disco inicializado y escriba lo siguiente: 


save "ejemplo" ERETURN]J 


Al cabo de unos segundos aparecerá en la pantalla el mensaje Ready, lo que indica 
que el programa ha quedado grabado en el disco. (De no ser así, observe los mensajes 
emitidos por el ordenador, pues puede ocurrir que no haya insertado el disco en la uni- 
dad correcta, que esté abierto el orificio de protección o que se haya equivocado al te- 
clear la orden.) 
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Catálogo 


Una vez grabado el programa, escriba lo siguiente: 
cat [RETURN] 
En la pantalla podrá ver 
Drive A! user Y 
EJEMFLO.BAS 1k 
168 K free 


o sea, el nombre del fichero, incluido el segundo campo, seguido de la longitud aproxi- 
mada en K. En la última línea se indica también el espacio que queda libre en el disco. 


Carga del disco a la memoria del ordenador 


Los programas se pueden cargar y ejecutar con las órdenes siguientes: 


load "nombresfi"” [RETURNJ 
run [RETURN] 


Pero también se los puede ejecutar directamente con una sola orden: 
run "nombrefi" [RETURN] 
Los programas protegidos sólo se pueden ejecutar por este segundo método. 
1 I 
¡A y ¡B 
Si tiene conectada la segunda unidad de disco, puede especificar en qué unidad desea 
que se realice cada función escribiendo 
la [RETURN] 
o bien 
¡b [RETURNI 


antes de las órdenes SAVE, CAT o LOAD. 


€__dTOOIO_ _ _ 
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Copia de programas de disco a disco 


Para copiar programas de un disco a otro utilizando las órdenes que hemos aprendido 
en esta sección, basta con hacer lo siguiente: cargar el programa en memoria leyéndolo 
del disco original (fuente), sacar el disco, insertar el disco nuevo (destino) y grabar en 
él el programa. 

En cambio, cuando se dispone de dos unidades de disco, es más cómodo insertar el dis- 
co fuente en una unidad, por ejemplo la B, y el disco destino en la A. Para copiar un 
programa se escribe entonces lo siguiente: 


¡b [RETURNIJ 
load "nombrefi* [RETURNI 
¡la [RETURN] 
save "nombrefi” E[RETURNI 


Hay cuatro formas de grabar programas con el CPC6128. Una de ellas es la ya 
conocida: 


save "nombre+fi" [RETURN] 


Las otras tres tienen aplicaciones más expecializadas: 


Ficheros ASCH 

save "nombrefi",a [RETURNI 
El sufijo ,a indica al ordenador que debe grabar el programa o los datos en forma de 
fichero de texto ASCII. Este método de grabación de datos es aplicable a los ficheros 


generados por procesadores de textos y otros programas; lo explicaremos más deteni- 
damente cuando hablemos de esas aplicaciones. 


Ficheros protegidos 
save "nombrefi”",p [RETURN]I 
El sufijo ,p indica al ordenador que el fichero debe ser protegido. Cuando un programa 


está así protegido, no es posible cargarlo (LOAD) para luego listarlo (LIST), ni tampo- 
co interrumpirlo con la tecla [ESC] después de haber iniciado su ejecución con RUN. 
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Los programas grabados por este procedimiento sólo pueden ser ejecutados directa- 
mente, bien con la orden 


run "nombrefi" [RETURN] 


bien con 


chain "nombrefi" [RETURN] 


Siempre que se prevea la posibilidad de que más tarde se vaya a corregir o modificar 
un programa, se debe guardar una copia no protegida, esto es, grabada sin el sufijo ,p. 


Ficheros binarios 


save "nombrefi",b, (direccion inicial) » “longitud en bytes) 
E, (punto de entrada, opcional) J] [RETURN] 


Esta opción permite realizar un volcado directo de datos desde la memoria RAM del 
ordenador hacia el disco. Además del sufijo ,b, es necesario indicar al ordenador en 
qué dirección de memoria empieza el bloque que se desea transferir, cuál es la longitud 
en bytes y, en su caso, en qué dirección de memoria debe empezar la ejecución cuando 
se cargue el fichero como programa. 


Volcado de pantalla 


Este método de grabación de ficheros binarios permite hacer un volcado de la memoria 
dedicada a la pantalla. El contenido de la pantalla se graba mediante la siguiente orden: 


save "volcpant",b,49152,16384 [RETURN] 


donde 49152 es la dirección en la que empieza la zona de memoria dedicada a la panta- 
lla y 16384 es el tamaño de esa zona en bytes. 


Para cargar nuevamente esos datos en el ordenador se escribe: 
load "volcpant" [RETURN 


En un capítulo posterior de este manual daremos más información sobre la transferen- 
cia de datos de un disco a otro, de cinta a disco y de disco a cinta. 


Finalmente, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho 
al principio del manual, en la sección titulada “IMPORTANTE: 


NOTAS DE INSTALACIÓN 5, 6 y 7 (pág. 4) 
NOTAS DE OPERACIÓN 1, 2, 3, 4, 5, 6, 7 y 9 (págs. 4 y 5) 
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Parte 8: Introducción a los modos de 
pantalla, colores y gráficos 


El AMSTRAD CPC6128 puede funcionar en tres modos de pantalla: modo 0, modo 1 
y modo 2. 


Al encenderlo, el ordenador selecciona automáticamente el modo 1. 


Para apreciar las diferencias entre los tres modos, encienda el ordenador y pulse la tecla 
del 1. Manténgala pulsada hasta que se hayan llenado dos líneas de pantalla. Si cuenta 
los unos, observará que hay 40 en cada línea. Esto quiere decir que en modo 1 la panta- 
lla tiene 40 columnas. Pulse [RETURN]: el ordenador responderá con un mensaje de 
Syntax error, pero no se preocupe; ésta es una forma rápida de obtener nuevamente 
el mensaje Ready, que indica que el ordenador está preparado para recibir nuestras 
instrucciones. 


Escriba ahora: 
mode Y [RETURNJ 


Observará que ahora los caracteres son más grandes. Pulse otra vez la tecla del 1 y no 
la suelte hasta que se hayan llenado dos líneas de la pantalla. Compruebe que ahora 
hay 20 unos por línea. Esto significa que en modo 0 la pantalla tiene 20 columnas. Pul- 
se nuevamente [RETURN] y luego escriba: 


mode 2 [RETURN] 
Observe que ahora los caracteres son muy pequeños. Puede comprobar que en modo 
2 la pantalla tiene 80 columnas. 


Resumiendo, 


Modo 0 > 20 columnas 
Modo 1 > 40 columnas 
Modo 2 > 80 columnas 


Finalmente, vuelva a pulsar [RETURN]. 


Colores 


Este ordenador puede manejar 27 colores. En el monitor de fósforo verde (GT65) apa- 
recen como distintas gradaciones de verde. Si usted adquirió el sistema con el monitor 
GT6S5, en cualquier momento puede comprar la unidad modulador/fuente de alimenta- 
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A A A AA 
ción MP2, con la que podrá disfrutar de los colores del ordenador conectándolo a un 


televisor doméstico. 


En modo 0 se puede visualizar simultáneamente 16 de los 27 colores disponibles. 
En modo 1 se puede visualizar simultáneamente 4 de los 27 colores. 
En modo 2 se puede visualizar simultáneamente 2 de los 27 colores. 


Se puede controlar los colores del borde, del papel (fondo) y de la pluma (trazo) inde- 
pendientemente unos de otros. 


Los 27 colores disponibles son los relacionados en la tabla 1, en la que incluimos tam- 
bién los números de referencia para la instrucción INK (tinta). 


Para mayor comodidad, esta tabla aparece también en la carcasa del ordenador, al lado 
derecho. 


Número | Número Número 
de tinta Color de tinta Color de tinta Color 
0 Negro 9 Verde | 18 Verde intenso | 
1 Azul 10 Cyan 19 Verde mar 
2 Azul intenso 11 Azul celeste 20 Cyan intenso 
3 Rojo 12 Amarillo 21 Verde lima 
4 Magenta 13 Blanco 22 Verde pastel 
5 Malva 14 Azul pastel 23 Cyan pastel 
6 Rojo intenso 15 Anaranjado 24 Amarillo intenso 
7 Morado 16 Rosado 25 Amarillo pastel 
8 Magenta intenso 17 Magenta pastel 26 Blanco intenso 
J 


Tabla 1. Números de tinta y colores asociados. 


Como hemos dicho, el ordenador se pone automáticamente en modo 1 al encenderlo. 
Para volver a modo 1 estando en cualquier otro, basta con escribir: 


mode 1 [RETURN] 


La pantalla 


El borde (BORDER) es el área que rodea el papel (PAPER). (Cuando se enciende el 
ordenador, el borde y el papel son ambos azules.) Los caracteres que escribimos en la 
pantalla sólo puede estar en la región interior al borde. El papel es el fondo sobre el 
que la pluma (PEN) escribe los caracteres. 


€$<__Ó- —— 1 5 1 
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Vamos a explicar cómo se realiza la selección de los colores. 


_ Cuando se enciende o reinicializa el ordenador, éste selecciona automáticamente el co- 
* lor número 1 para el borde. Como puede comprobar en la tabla 1, el color número 1 
es el azul. El color del borde se puede cambiar mediante la orden BORDER seguida 
del número del color deseado. Por ejemplo, escriba: 


border 13 [(RETURNI 


Esto es fácil, pero en el interior de la pantalla las cosas son algo más complicadas: 


Cuando se enciende o reinicializa la máquina, el número de papel seleccionado automá- 
ticamene es el O, y el de la pluma es el 1. Esto no quiere decir que los colores correspon- 
dientes sean los que figuran en la tabla anterior con los números 0 y 1. 


Lo que ocurre es que el 0 y el 1 son números de papel y de pluma, 20 números de tinta. 
Vamos a explicarnos. Supongamos que tenemos en nuestra mesa cuatro plumas, nume- 
radas del 0 al 3, y 27 tinteros, numerados del O al 26. Es evidente que cuando decimos 
“pluma número 1” no necesariamente estamos refiriéndonos al color número 1. La plu- 
ma número 1 puede estar cargada con tinta de cualquier color; de hecho, podemos te- 
ner las cuatro plumas cargadas con la misma tinta. 


Pues bien, algo similar ocurre en el ordenador. Con la instrucción PEN (pluma) pode- 
mos elegir la pluma con la que vamos a escribir; la instrucción INK (tinta) nos permite 
“cargar” esa pluma con tinta del color deseado. 


Recordando que estamos en modo 1 (40 columnas), consulte la tabla 2 y comprobará 
que la pluma número 1 está cargada inicialmente con tinta de color 24. Pero el color 
24 es, como podemos ver en la tabla 1, amarillo intenso: el color con que se escriben 
los caracteres cuando acabamos de encender el ordenador. 
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Número de Color de tinta Color de tinta Color de tinta 


papel/pluma Modo 0 Modo 1 Modo 2 
0 1 1 1 
1 24 24 24 
2 20 20 1 
3 6 6 24 
4 26 1 1 
5 0 24 24 
6 2 20 1 
7 8 6 24 
8 10 1 1 
9 12 24 24 

10 14 20 1 
11 16 6 24 
12 18 1 1 
13 22 24 24 
14 Parpadeo 1,24 20 1 
15 Parpadeo 16,11 6 24 


Tabla 2. Asignación inicial de tintas a los papeles y las plumas. 


Las relaciones entre papel, pluma y tinta no son fijas. Los valores que se muestran en 
la tabla 2 son los seleccionados automáticamente en el momento de encender la máqui- 
na. Se los puede cambiar mediante la instrucción INK (tinta). Esta instrucción va segui- 
da de dos números (parámetros). El primero es el número de papel o de pluma que va- 
mos a cargar; el segundo es el color con que vamos a cargarlo. Los parámetros van 
separados por una coma. 


Puesto que estamos utilizando la pluma número 1, vamos a cambiar el color de tinta 
correspondiente: la cargaremos con tinta de color anaranjado. Escriba: 


ink 1,15 [RETURNI 


Los caracteres han cambiado instantáneamente de color. 
También vamos a cambiar el color del fondo mediante la instrucción INK. Sabemos 
que el número de papel seleccionado al encender la máquina es el 0; vamos a cambiar 
el color a verde (color número 9) escribiendo: 

ink 9,9 [RETURN] 


Ahora vamos a cambiar de pluma. Escriba: 


pen 3 [RETURN] 
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El color de los caracteres ya escritos no ha cambiado. Esta instrucción afecta solamente 
a los que escribamos a continuación. En este momento estamos utilizando la pluma nú- 
mero 3. Como puede comprobar en las tablas 1 y 2, la tinta con que esta pluma está 
cargada inicialmente es la de color número 6 (rojo intenso). Para cambiarla a rosado 
escriba: 


ink 3,16 [RETURNI 


Recuerde que el 3 es el color de la pluma (seleccionado con la anterior instrucción pen 3) 
y que el 16 es el color de la tinta con que la cargamos (rosado). 

Cambiemos ahora de papel. Cuando lo hagamos, el anterior color de fondo no cambia- 
rá, porque ese color ha sido impreso con otro papel. Escriba lo siguiente: 


paper 2 [RETURN] 


Consultando nuevamente las tablas 1 y 2, compruebe que el color inicialmente asigna- 
do al papel número 2 es cyan intenso. Cámbielo a negro escribiendo: 


ink 2,9 [RETURN] 


En este momento, en la pantalla tenemos caracteres escritos por las plumas 1 y 3, sobre 
fondos de papel números O y 2. También se puede cambiar el color de la tinta de una 
pluma o de un papel que no estén siendo utilizados. Por ejemplo, escriba la orden: 


ink 1,2 [RETURNI 


que cambia el color de todos los caracteres que habíamos escrito antes con la pluma 
número 1. 


Escriba: 
cls [RETURN 


para borrar la pantalla. 


El lector ya debería ser capaz de hacer que el ordenador vuelva a los colores iniciales 
(borde y fondo azul y caracteres amarillos) utilizando las instrucciones BORDER, 
PAPER, PEN e INK. Inténtelo. Si no lo consigue, reinicialice el ordenador con 
[CONTROL] [MAYS] [ESC]. 


Colores parpadeantes 


Es posible hacer que una tinta cambie intermitentemente de color. Para ello se debe 
añadir otro número a la instrucción INK que asigna tintas a la pluma utilizada. 


Curso de introducción 1/53 


O ODO E OOOO DO O O 


Vamos a hacer que los caracteres que escribamos alternen entre los colores blanco in- 
tenso y rojo intenso. Reinicialice la máquina con [CONTROL] [MAYS] [ESC] y escri- 
ba lo siguiente: 


ink 1,26,6 [RETURN] 


En este caso el 1 es el número de la pluma, el 26 es el del color blanco intenso y el 6 
es ef del segundo color, rojo intenso. 


El mismo efecto de parpadeo se puede dar a los colores del fondo, para lo cual se añade 
un segundo número de color a la instrucción INK que asigna tintas al papel actual. Para 
hacer que el color del fondo alterne entre verde y amarillo intenso escriba: 


ink 4,9,24 E[RETURNI 
En este caso 0 es el número del papel, 9 es el número del color verde y 24 es el número 
el segundo color, el amarillo intenso. 
Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. 


Observe en la tabla 2 que en modo 0 hay dos números de pluma y dos números de pa- 
pel, el 14 y el 15, que tienen asignadas tintas parpadeantes. Es decir, sus correspondien- 
tes tintas están preprogramadas con un color adicional. 


Escriba lo siguiente: 


mode 4 [RETURN] 
pen 15 [RETURN] 


y verá en la pantalla la palabra Ready parpadeando entre azul celeste y rosado. Escriba 
ahora: 


paper 14 [RETURNIJ 
cls 


El texto continúa parpadeando como antes, pero además el fondo ha empezado a alter- 
nar entre los colores amarillo y azul. 


Los números de pluma y de papel 14 y 15 pueden ser reprogramados, mediante la ade- 
cuada instrucción INK, «Bara que parpadeen con otras tintas o bien para asignarles un 
color fijo. 


Finalmente, se puede hacer parpadear el borde sin más que especificar un segundo nú- 
mero de color en la instrucción BORDER. Escriba: 


border 6,9 [RETURN] 


El borde está parpadeando entre los colores rojo intenso y verde. Observe que al borde 
se le puede asignar uno o dos colores cualesquiera de los 27 disponibles, independiente- 
mente del modo en que esté la pantalla (0, 1 o 2). 


gg ROD 
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Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. 


Introduzca y ejecute el siguiente programa, que demuestra los colores disponibles. 


19 MODE YM [RETURN] 

29 velocidad=699: REM establece velocidad del 
programa [RETURN]I 

39 FOR b=9 TO 26 [RETURN] 

48 LOCATE 1,12 [RETURNI 

5Y BORDER b [RETURN] 

6% PRINT *color del borde:";b [RETURN] 

748 FOR t=1 TO velocidad [RETURNI 

89 NEXT t,b [RETURNI 

998 CLG [RETURN] 

1909 FOR p=9 TO 15 [RETURN] 

119 PAPER p [RETURN] 

129 PRINT "papel:";5p [RETURN] 

139 FOR n=9 TO 15 [RETURN]J 

149 PEN n [RETURNJ 

159 PRINT "pluma:"in [RETURN] 

169 NEXT n [RETURNI 

179 FOR t=1 TO velocidadX2 [RETURNJ 

189 NEXT t,p [RETURN] 

199 MODE 1 [RETURNJ 

299 BORDER 1 [RETURN] 

219 PAPER Y [RETURN]J 

229 PEN 1 [RETURNJ 

239 INK 9,1 [RETURNI 

249 INK 1,24 [RETURNIJ 

run [RETURN] 


OBSERVACIÓN MUY IMPORTANTE 


En este programa, así como en otros capítulos y listados de este manual, las palabras 
clave de BASIC aparecen en mayúsculas, pues el ordenador convierte automáticamen- 
te minúsculas a mayúsculas cuando se le pide que haga un listado del programa (con 
LIST). En general, es preferible escribir las instrucciones en minúsculas; esto ayudará 
más tarde a detectar errores, ya que las palabras clave de BASIC que contengan algún 
error no serán convertidas a mayúsculas. 


En lo que resta de este “Curso de introducción” daremos los listados indistintamente 
en mayúsculas y minúsculas, para que usted se familiarice con esta característica de 
BASIC. 


Los nombres de las variables, tales como x o a$, no son convertidos a mayúsculas al 
listar el programa. Sin embargo, el ordenador reconoce las variables tanto si están en 
mayúsculas como si están en minúsculas; de hecho, para el ordenador x es la misma 
variable que X. 
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Atención 


A partir de ahora no vamos a seguir recordándole que debe pulsar [RETURN] al 
terminar de escribir cada línea de programa y cada orden directa, pues suponemos 
que usted ya está suficientemente habituado a hacerlo. 


Gráficos 


En la memoria del ordenador está pregrabado el diseño de cierto número de caracteres. 
Para escribirlos en la pantalla necesitamos la palabra clave: 


chr*$( ) 
Dentro de los paréntesis se pone el número del carácter, que debe estar en el margen 
de 32 a 255. 
Reinicialice el ordenador con [CONTROL] [MAYS] [ESC] y escriba lo siguiente: 


print chre$(259) 


No olvide pulsar [RETURN]. En la pantalla ha aparecido el carácter número 250, que 
es la figura de un hombre caminando hacia la derecha. 


Para ver todos los caracteres y símbolos, junto con su número correspondiente, intro- 
duzca y ejecute el siguiente programa (recuerde que debe pulsar [RETURN] al final de 
cada línea): 


19 for n=32 to 255 
29 print nichr$(ln); 
39 next n 

run 


Todos estos caracteres y números figuran en el capítulo “Para su referencia ...?. 


LOCATE 


Esta instrucción sirve para colocar el cursor en un lugar especificado de la pantalla. 
A menos que se lo mueva con una instrucción LOCATE, el punto de partida del cursor 
es el extremo superior izquierdo de la pantalla, punto de coordenadas 1,1 (en el sistema 
de coordenadas x, y, donde x es la posición horizontal e y es la vertical). En modo 1 
hay 40 columnas y 25 filas (o líneas). Así, para colocar el cursor en el centro de la pri- 
mera línea, tendremos que utilizar 20,1 como coordenadas x, y. 


x€EOR__ A 
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t 


Teclee lo siguiente (sin olvidar pulsar [RETURN] al final de cada línea): 
mode 1  ... borra la pantalla y lleva el cursor al extremo superior izquierdo 
19 locate 29,1 


29 print chr$(259) 
run 


Para comprobar que el carácter está en la primera línea, cambiemos el color del borde: 


border Y 


El borde es ahora negro y podemos ver que el hombrecillo está en el centro de la línea 
superior. 


En modo 0 sólo hay 20 columnas, pero las mismas 25 líneas. Si ahora escribe: 


mode Y 
run 


verá que el hombre se ha ido al extremo superior derecho de la pantalla. Esto ha ocurri- 
do porque la coordenada x = 20 es la última columna en modo 0. Escriba: 


mode 2 
run 


Vuelva a modo 1 con: 
mode 1 


Ahora pruebe usted con diferentes posiciones en locate y diferentes números en 
chr$( ). Por ejemplo, escriba: 


locate 29,12:print chrt(249) 


y verá una flecha en el centro de la pantalla. Observe que en esta instrucción: 


20 es la coordenada x (horizontal) (margen: 1 a 40) 
12 es la coordenada y (vertical) (margen: 1 a 25) 
240 es el número del carácter (margen: 32 a 255) 
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Para mover el carácter 250 de izquierda a derecha de la pantalla, escriba lo siguiente: 


19 CLS 

290 FOR x=1 TO 39 
39 LOCATE x,29 

59 PRINT CHR$(2590) 
60 NEXT x 

79 GOTO 19 

run 


Pulse [ESC] dos veces para abandonar el programa. 


Si queremos borrar el carácter recién escrito antes de escribir el siguiente, debemos 
hacer 


59 print " "5chr$(259) 


(Esta nueva línea 50 reemplaza automáticamente la que teníamos antes.) Escriba: 


run 


FRAME 


Para mejorar la ilusión de movimiento del carácter por la pantalla, añada al programa 
anterior la siguiente línea: 


40 frame 


La instrucción FRAME sincroniza el movimiento de objetos por la pantalla con la fre- 
cuencia a la que se envían las imágenes al monitor. La explicación es demasiado técni- 
ca, pero basta con que recordemos que esta instrucción se debe utilizar siempre que 
queramos mover objetos suavemente por la pantalla. 


Este programa se puede mejorar introduciendo pausas y utilizando un símbolo distinto 
para el retroceso. 


Escriba: 


list 


O OOO DO 
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y añada las siguientes líneas: 


79 FOR n=1 TO 399:NEXT n 
88 FOR x=32 TO 1 STEP -1 
99 LOCATE x,29 

199 FRAME 

119 PRINT CHR$(251)5" " 
129 NEXT x 

139 FOR n=1 TO 390:NEXT n 
149 GOTO 28 

run 


PLOT 


La instrucción PLOT es análoga a LOCATE, pero controla la posición del cursor gráfi- 
co y utiliza un sistema de coordenadas distinto, en el que las distancias se miden en 
pixels (un pixel, o punto gráfico, es la mínima área de la pantalla controlable 
individualmente). 


El cursor gráfico es invisible, y distinto en todos los aspectos del cursor de texto. 


La pantalla se divide en 640 puntos en horizontal por 400 en vertical. Las coordenadas 
x, y se toman con respecto al extremo inferior izquierdo de la pantalla, que es el punto 
de coordenadas 0,0. A diferencia de lo que ocurría con LOCATE, las coordenadas de 
este sistema no dependen del modo de pantalla (0, 1 o 2). 


Para comprobarlo, reinicialice la máquina con [CONTROL] [MAYS] [ESC] y escriba: 
plot 329,209 


Observe el punto que ha aparecido en el centro de la pantalla. 


Hagamos lo mismo en modo 0: 


mode Y 
plot 320,209 


El punto sigue estando en el centro de la pantalla, pero es más grande. Para ver el efec- 
to en modo 2 escriba: 


mode 2 
plot 329,299 


Como era de esperar, el punto sigue centrado, pero es mucho más pequeño. 
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Dibuje unos cuantos puntos en diversos lugares de la pantalla y en modos distintos para 
familiarizarse con esta instrucción. Cuando haya terminado, escriba: 


mode 1 


para volver a modo 1 y borrar la pantalla. 


DRAW 


Reinicialice la máquina con [CONTROL] [MAYS] [ESC]. La instrucción DRAW dibu- 
ja una recta a partir de la posición actual del cursor gráfico. Para verla en acción, dibu- 
je un rectángulo con el siguiente programa: 


19 plot 19,19 
29 draw 19,399 
39 draw 639,399 
49 draw 639,19 
59 dran 19,19 
68 goto 6% 


En la línea 10 la instrucción PLOT coloca el cursor en el punto de partida deseado. A 
continuación, las instrucciones DRAW van dibujando segmentos de recta: hacia arri- 
ba, hacia la derecha, etc. 


Pulse [ESC] dos veces para abandonar el programa. 


(Observe la línea 60 de este programa. Esta línea establece un bucle infinito, del que 
sólo se sale deteniendo el programa. Una instrucción de este tipo es útil cuando se quie- 
re evitar que el ordenador exhiba el mensaje Ready al terminar el programa.) 


Añada al programa las siguientes líneas, las cuales dibujan un segundo rectángulo den- 
tro del anterior: 


69 plot 29,29 
79 draw 20,389 
89 draw 629,389 
9% draw 620,29 
199 draw 290,29 
11% goto 119 
run k 


Pulse [ESC] dos veces para detener el programa. 
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MOVE 


Esta instrucción funciona igual que PLOT en cuanto a llevar el cursor gráfico a la posi- 
ción especificada, pero no dibuja el punto. 


Escriba: 


cls 
move 639,399 


Aunque no podamos verlo, hemos llevado el cursor al extremo superior derecho de la 
pantalla. 

Para demostrarlo, vamos a dibujar una recta desde ese punto hasta el centro de la pan- 
talla. Escriba: 


draw 329,299 


Circunferencias 


Las circunferencias se pueden dibujar punto a punto o con trazo continuo. Una forma 
de dibujar una circunferencia consiste en dibujar puntos en las posiciones correctas. 
En la figura siguiente se ilustra cómo se calculan las coordenadas x. y de un punto p 
de la circunferencia. Las fórmulas son: 


x=198%cos (a) 
y=190%*sinla) 


200 


BORDE DE 
LA PANTALLA 


320 
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a a 90D O DO DO 


Dibujo de una circunferencia 


En los programas anteriores hemos referido todos los dibujos al extremo inferior iz- 
quierdo de la pantalla. Si queremos que nuestra circunferencia quede centrada en la 
pantalla, debemos situar su centro en el punto de coordenadas 320,200, y luego sumar 
a estos valores los dados por las fórmulas anteriores. 


El siguiente programa dibuja punto a punto una circunferencia: 


19 CLS 

29 DEG 

39 FOR a=1 TO 369 
49 MOVE 329,299 


59 PLOT 329+1998%C0S(a),299+199%*SIN(a) 
69 NEXT 


Observe que hemos dado la orden NEW antes de introducir el programa. Esta orden 
hace que el ordenador borre el programa que en ese momento tenga en la memoria (de 
forma similar a lo que ocurre cuando se pulsa [CONTROL] [MAYS] [ESC]). Sin em- 
bargo, la pantalla no se borra. 


El radio de la circunferencia se puede reducir poniendo en lugar de 190 un número me- 
nor de pixels. 


Para ver el efecto de dibujar la circunferencia de otra forma (en radianes), borre la lí- 
nea 20 escribiendo: 


29 


En lugar de punto a punto, podemos dibujar la circunferencia con trazo continuo. Mo- 
difique la línea 50 para poner draw en lugar de plot. La línea será entonces: 


59 draw 329+199%co5(a), ,209+198%s5in(a) 


Pruebe esta modificación con la línea 20 y sin ella. 


Observe que en la línea 60 de este programa hemos puesto NEXT en lugar de NEXT a. 
En efecto, se puede omitir el nombre de la variable, pues el ordenador se encarga de 
averiguar a qué FOR corresponde cada NEXT. No obstante, en los programas en los 
que haya muchos bucles FOR ... NEXT, puede ser conveniente poner los nombres de 
las variables después de NEXT para que el programa sea más inteligible cuando se lo 
esté corrigiendo o estudiando. 


x€EEnRK—— 5 a 
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ORIGIN 


En el programa anterior utilizábamos la instrucción MOVE para establecer el centro 
de la circunferencia y luego sumábamos a las coordenadas del centro las coordenadas 
de los puntos de la circunferencia. Podemos evitar esas sumas si redefinimos la posi- 
ción del origen de coordenadas con la instrucción ORIGIN. El ordenador entenderá las 
coordenadas que se le suministren a continuación como referidas al nuevo origen. Es- 
criba lo siguiente: 


19 cls 

29 for a=1 to 369 

38 origin 320,290 

49 plot 19%8*cos[(a),1?%%8*sinla) 
59 next 


El siguiente programa dibuja cuatro circunferencias más pequeñas: 


19 CLS 

29 FOR a=1 TO 369 

39 ORIGIN 196,282 

46 PLOT 59*C0S (a), ,5g4XSIN(a) 
59 ORIGIN 442,282 

68 PLOT 59%COS(a),S54XSIN(a) 
79 ORIGIN 196,116 

89 PLOT 59XCOS (a), ,54XSIN (a) 
99 ORIGIN 442,116 

199 PLOT S58X*COS (a) ,54XSIN (a) 
11% NEXT 

run 


Otra forma de dibujar la circunferencia (con trazo continuo) es la siguiente: 


19 MODE 1 

29 ORIGIN 320,209 

390 DEG 

49 MOVE 8,199 

59 FOR a=4% TO 369 STEP 19 

68 DRAW 194XSIN(a),170XC05S1a) 
78 NEXT 
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En este caso se van dibujando pequeños segmentos de recta, de un punto al siguiente 
de la circunferencia. Este método es mucho más rápido que el de dibujo punto a punto. 


Observe una vez más el efecto de la instrucción DEG: suprima la línea 30 y ejecute el 
programa. 


FILL 
La instrucción FILL (rellenar) se utiliza para rellenar una región de la pantalla que esté 
delimitada por gráficos o por los bordes de la pantalla. 


Reinicialice la máquina con [CONTROL] [MAYS] [ESC] y luego escriba: 


new 
19 cls 

249 move 28,29 
39 draw 629,29 
49 draw 319,389 
59 draw 29,29 
run 


En la pantalla ha aparecido un triángulo. Lleve el cursor gráfico al centro de la pantalla 
con la orden 


mode 329,249 


Vamos a utilizar la instrucción FILL seguida de un número de pluma, por ejemplo el 
3, para rellenar con la tinta de la pluma especificada el recinto cerrado en que se en- 
cuentra el cursor. Escriba lo siguiente: 


fill 3 

Lleve el cursor al exterior del triángulo con la orden 
move 9,9 

Observe qué ocurre cuando escriba: 


+Fi11 2 


El ordenador ha usado la pluma número 2 para rellenar la zona delimitada por el dibu- 
jo y los bordes de la pantalla. 


x<F-EOÓ__A<E-X:< 
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A A 
Modifique ahora el programa escribiendo la líneas siguientes y vea qué ocurre: 


58 draw 59,59 
68 move 329,289 
789 $111 3 

run 


La tinta 'rezuma” por la ranuras. 
Veámoslo con otro ejemplo. Rellenemos una circunferencia dibujada punto a punto: 


nen 

19 CLS 

20 FOR a=1 TO 369 

39 ORIGIN 329,209 

49 PLOT 199*C0S(a),199X*SIN(a) 
59 NEXT 

68 MOVE -188,9 

78 FILL 3 

run 


Pruebe ahora con: 


nen 

19 MODE 1 

29 ORIGIN 329,299 

39 DEG 

49 MOVE 9,199 

59 FOR d=94 TO 3698 STEP 18 

68 DRAW 198X%SIN(d),198*C0S 1d) 
79 NEXT 

29 MOVE -188,9 

99 FILL 3 


Para hacer que el borde del círculo sea invisible, dibujamos la circunferencia con tinta 
del mismo color que la del papel. Añada la siguiente línea: 


45 GRAPHICS PEN 2: INK 2,1 
run 


La instrucción GRAPHICS PEN selecciona la pluma que haya de ser utilizada para * 
dibujar gráficos. La instrucción INK especifica el color de tinta para esa pluma, que 
en este caso coincide con el color del papel (color número 1). 


q __í a A 
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Finalmente, introduzca y pruebe el siguiente programa: 


REW 


19 
28 


MODE 9: BORDER 13 

MOVE 4,299: DRAW 640,209 
FOR x=89 TO 569 STEP 89 
MOVE x,9:DRAW x,409 
NEXT:MOVE -48,309 

FOR c=9 TO ? 

MOVER 89,9:FILL c 

MOVER 6,-289:FILL c+8 
MOVER 9,209: NEXT 


199 GOTO 199 


ruh 


También se puede cambiar los colores de las zonas rellenadas: 


199 
119 
120 
139 
run 


SPEED INK 39,39 

BORDER RNDX26,RNDXZ6 

INK RNDX*15,RNDXZ6, ANDXZÓ 

FOR t=1 TO 508: NEXT:GOTO 1189 


Otros detalles ... 


En la sección “Dicho gráficamente”, del capítulo titulado “Cuando usted guste ...”, da- 


remos una 


explicación más detallada de los gráficos del CPC6128. 


Para concluir esta sección, le ofrecemos unos programas de demostración de gráficos 
que incorporan muchas instrucciones que el lector ya debería entender. Todos ellos di- 
bujan figuras en la pantalla continuamente. 


19 BORDER 9:GRAPHICS PEN 1 

29 m=CINT(RNDXZ):MODE m 

39 ¡1=RNDXZ6: i2=RNDAZ6 

49 IF ABS(i1-12)<198 THEN 30 

59 INK 9,11: INK 1,12 

69 s=RNDX5+3: ORIGIN 329,-199 

79 FOR x=-1999 TO YM STEP s 

89 MOVE S,8:DRAW x,3998:DRAW 0,600 
99 MOVE M,9:DRAW -x,398:DRAW 9,609 


199 
run 


NEXT:FOR t=1 TO 298988:NEXT:GOTO 29 


——_—_— _—_—_—_  —_—__ _ -=xo——e—ea———— A 
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MODE 1:BORDER S:PAPER Y 
GRAPHICS FEN 2: INK 9,9: i=14 
EVERY 22994 GOSUB 159 


indicador=89:; 


CcL6G 


INK 2,14+RNDx12 


b%=RNDXS5+1 
CA=RNDXS+1 


ORIGIN 329,299 
FOR a=4 TO 1984 STEP F1I/39 


149 NEXT 
indicador=1:RETURN 


x4=188XCOS (a) 

MOVE x%, y% 

DRAW 284XC0S (a/b%),2848XSIN(a/c%) 
IF indicador=1 THEN 49 


MODE 1:BORDER $9: DEG 
PRINT "Por favor, espere" 


FOR n=1 to 
INK 9,9: INK 
IF n=1 THEN 
IF n=2 THEN 
IF n=3 THEN 
IF n=1 THEN 


3 

1,26: INK 2,6: INK 3,18 

sa=129 

sa=135 

sa=159 

ORIGIN 4,-59,9,6498,9,409 ELSE 


ORIGIN 9,9,9,6498,9,499 
DIM cx(5),cy15),r(5),1c (5) 


DIM np(5) 


DIM px%(5,81),py%(5,81) 
st=1:cx(1)=328:cy(1)=2988:r(1)=80 


FOR st=1 TO 4 
r(íst+1i)=r (st)/2 
NEXT st 


FOR st=1 TO 5 
l1c(st)=8:np(st)=9 
np (st)=np (st)+1 


px%(íst,npist))=r(st)X*SIN(Ic(st)) 
py%istrnp(st))=r (st)XCOS(lc(st)) 
lc(íst)=1c(st)+368/r(st) 


199 
299 
219 
2290 IF lc(st)<369 THEN 189 


259 NEXT st 
CLS:cj=REMAIN(1):cj=REMAIN(2) 
cj=REMAIN (3): INK 1,2:st=1 


Curso de introducción 


px%(st,npist)+1)=px%Iist,1) 
pyA%istinp (st)+1)=py%(st,1) 
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289 
299 
399 
319 
329 
339 
349 
350 
369 
379 
389 
399 


499 
419 
429 
439 
449 
459 
468 
479 
489 
499 
599 
519 
529 
530 
599 
559 
569 
579 
589 
599 
699 
s6l9 
629 


GOSUB 359 
LOCATE i1,id 


EVERY 25,1 GOSUB 519 
EVERY 15,2 GOSUB 559 
EVERY 5,3 GOSUB 599 
ERASE cx,cy,ryslcsnp,px%,py%: NEXT 


GOTO 349 


ecx=cx (st) icy%=cy (st):lc(st)=9 


FOR x%=1 TO np(st) 


MOVE cx%,cy% 


DRAYW cx%+px%(st,x%) cy%tpy%íst,x%),1+(st MOD 3) 
DRAW cx%+px%(st,x%+t1),cy%tpy%(ist,x%t1),1+(st 


MOD 3) 
NEXT x% 


1F st=5 THEN RETURN 


lc(st)=9 


cx1ist+1)=cx(st)+1.5%r(st)XSIN(sat+tlc(st)) 
cy (st+1)=cy(st)+1.5%r (st)X*COS(sa+lc(st)) 


st=st+1 
GOSUB 358 
st=st-1 


lcíst)=1c(st)+2%sa 
IF (1lc(st) MOD 3698)<>98 THEN 439 


RETURN 
ik(1)=1+RNDXZ5 
IF ik(1)=ik(2) 
INK 1,ik(1) 
RETURN 
ik(2)=1+RNDX25 
IF ik(2)=ik(1) 
INK 2,ik(2) 
RETURN 

ik (3)=1+RNDX25 
IF ik(3)=ik(1) 
INK 3,1k(3) 
RETURN 


OR ik(1)=ik(3) 


OR ik(2)=ik(3) 


OR ik(3)=ik (2) 


THEN 519 


THEN 559 


THEN 599 
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Parte 9: Sonidos 


El ordenador emite su sonido a través del altavoz que tiene incorporado. Si está utili- 
zando la unidad modulador/fuente de alimentación MP2 y un televisor doméstico, baje 
el mando de volumen del televisor al mínimo. 

El nivel de sonido se ajusta con el mando VOLUMEN que hay en el panel posterior 
del ordenador. También es posible enviar el sonido a un amplificador externo, por me- 
dio de la salida marcada con ESTEREO en el ordenador. De esta forma se puede'oír 
el sonido en estereofonía, utilizando los altavoces o los auriculares de un equipo de alta 
fidelidad. En la parte 2 de este “Curso de introducción” se explica cómo tomar las seña- 
les de la salida ESTEREO del ordenador. 


La instrucción SOUND 


La instrucción SOUND tiene siete parámetros. Los dos primeros son imprescindibles, 
mientras que los restantes son opcionales. La forma de la.instrucción es la siguiente: 


SOUND (situacion de canales), (periodo de tono), (duracion), (volunen) , 
envolvente de volumen), (envolvente de tono), (periodo de ruido) 


Parece complicada a primera vista, pero veremos que en realidad no lo es tanto cuando 
hayamos analizado el significado de todos los parámetros. Así pues, estudiemos los pa- 
rámetros uno por uno. 


Situación de los canales 


Para no complicar las cosas, por ahora nos limitaremos a considerar este parámetro 
como simple selector de canales. Hay tres canales de sonido; de momento sólo utilizare- 
mos el número 1. 


Periodo de tono 


El periodo de tono es la forma técnica de especificar el tono del sonido; en otras pala- 
bras, de identificar la nota (DO, RE, MI, FA, etc.). Cada nota tiene un número de 
identificación, que es el periodo de tono. Si consulta el capítulo “Para su referen- 
cia...”, comprobará que la nota DO media tiene un periodo de tono de 239. 


e 5 5 5 ¿[5 5 5 5 55 5 55 5 
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A A A O O 
Reinicialice el ordenador con [CONTROL] [MAYS] [ESC] y luego escriba: 


19 sound 1,239 
run 


Acaba de oír la nota DO media, que ha sonado durante 0.2 segundos. 


¿No ha oído nada? Suba el control de volumen del ordenador y vuelva a ejecutar el 
programa. 


Duración 


Este parámetro especifica la duración del sonido. Las unidades son de centésimas de 
segundo (0.01 s). Si no se especifica duración, el ordenador toma el valor implícito para 
este parámetro, que es 20; por eso la nota que acaba de oír ha durado 0.01 x20=0.2 
segundos. 


Si queremos que la nota dure 1 segundo, el valor del parámetro tendrá que ser 100; 
para dos segundos, 200; etc. Escriba lo siguiente: 


19 sound 1,239,299 
Fun 


Acaba de oír la nota DO media con duración de 2 segundos. 


Volumen 


Este parámetro especifica el volumen de la nota. El margen de valores va de 0 a 15. 
El “volumen” 0 es el mínimo; el 15 es el máximo. Si no se especifica ningún valor, el 
ordenador toma el implícito, que es 12. Escriba lo siguiente: 


19 sound 1,239,299,5 
run 


Fíjese en el volumen de este sonido y compárelo con el siguiente: 


19 sound 1,239,240,15 
run 


Como puede observar, es mucho más intenso que el anterior. 


 — __——_———AA A AAA AA A A A 
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Envolvente de volumen 


Se puede hacer que el volumen de una nota no sea constante, sino que varíe con el tiem- 
po mientras la nota está sonando. Para especificar la forma de variación del volumen 
en función del tiempo necesitamos otra instrucción: ENV. De hecho, podemos definir 
varias envolventes de volumen distintas, cada una de las cuales tendrá su número de 
referencia. Así, si hemos definido la envolvente de volumen número 1, podemos utili- 
zarla poniendo en la instrucción SOUND el número 1 como parámetro de envolvente 
de volumen. En seguida explicaremos cómo se definen las envolventes de volumen. 


Envolvente de tono 


Se puede hacer que el tono de una nota no sea constante, sino que varíe con el tiempo 
mientras la nota está sonando. Para especificar la forma de variación del tono en fun- 
ción del tiempo necesitamos otra instrucción: ENT. De hecho, podemos definir varias 
envolventes de tono distintas, cada una de las cuales tendrá su número de referencia. 
Así, si hemos definido la envolvente de tono número 1, podemos utilizarla poniendo 
en la instrucción SOUND el número 1 como parámetro de envolvente de tono. En se- 
guida explicaremos cómo se definen las envolventes de tono. 


Ruido 

El periodo de ruido es el último parámetro de la instrucción SOUND. Las característi- 
cas del ruido se pueden variar eligiendo para este parámetro un valor comprendido en- 
tre 1 y 31. Ponga el valor 2 en la instrucción SOUND y escuche el efecto. Ponga luego 
el número 27 y observe la diferencia. Escriba: 


18 sound 1,232,2908,13,,,2 


En esta instrucción hemos dejado en blanco dos parámetros (,,,) porque aún no hemos 
creado ninguna envolvente de volumen ni de tono. 


Definición de una envolvente de volumen 


La instrucción que define envolventes de volumen es ENV. En su versión más sencilla, 
esta instrucción lleva 4 parámetros. Su forma es la siguiente: 


ENV (numero de envolvente), (nuzero de escalones), (altura de cada escalon), 
(duracion de cada escalon> 


Estudiemos los parámetros uno por uno. 
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Número de la envolvente 


Es el número de referencia (entre O y 15) por el que la invocaremos en la instrucción 
SOUND. 


Número de escalones 


Este parámetro especifica en cuántas etapas queremos que la nota evolucione antes de 
terminar. Por ejemplo, si la nota ha de durar 10 segundos, podemos dividirla en 10 
etapas de 1 segundo cada una; en tal caso, el parámetro “número de escalones” tendría 
el valor 10. 


El margen de este parámetro es de 0 a 127. 


Altura de cada escalón 


En cada etapa, el volumen puede variar con respecto al nivel anterior en un número 
de unidades comprendido en O y 15. Estos 16 niveles de sonido son los mismos que se 
definen en la instrucción SOUND. Sin embargo, el margen del parámetro “altura de 
escalón” es de —128 a +127; el nivel del volumen vuelve a O cada vez que sobrepasa 


el 15. 


Duración de cada escalón 


Este parámetro especifica la duración de cada escalón en unidades de centésimas de se- 
gundo. El margen de valores es de O a 255; esto significa que la duración máxima de 
cada escalón es de 2.56 segundos (el O se considera como 256). 


Por consiguiente, el producto del parámetro “número de escalones” por el parámetro 
“duración de cada escalón” no debería ser mayor que el parámetro “duración especifi- 
cado en la instrucción SOUND. De lo contrario, el sonido terminará antes de que se 
hayan completado todos los escalones de la envolvente. (En ese caso el ordendor ignora 
el resto del contenido de la envolvente.) 


Análogamente, si la duración especificada en SOUND es mayor que la impuesta por 
el producto de “número de escalones” por “duración de cada escalón”, la nota continua- 
rá sonando aunque se hayan terminado los escalones de la envolvente de volumen, y 
lo hará al nivel del último escalón de la envolvente. 


Para practicar con las envolventes de volumen, pruebe el siguiente programa: 
19 env 1,19,1,199 


28 sound 1,142,19909,1,1 
run 
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E 


La línea 20 especifica un sonido con número de tono igual a 142 (LA internacional), 
duración de 10 segundos, volumen inicial igual a 1 y envolvente de tono número 1, la 
cual consiste en 10 escalones de altura 1 y duración 1 segundo (100 x 0.01). 

Pruebe las siguientes formas de la línea 10 y trate de escuchar el efecto de las diferentes 
envolventes de volumen: 


19 env 1,199,1,19 
109 env 1,199,2,19 
19 env 1,1909,9,19 
19 env 1,50,29,29 
19 env 1,59,2,24 
19 env 1,59,15,39 


Finalmente, pruebe la siguiente: 
19 env 1,59,2,19 


Observe que el volumen permanece constante durante la segunda mitad de la nota. Esto 
ocurre por que el número de escalones es 50 y la duración de cada uno de ellos es 
0.1 s, con lo que la duración total de la envolvente es de solamente 5 segundos, mientras 
que en la instrucción SOUND se especifica una duración de 10 segundos. 


Haga usted otras pruebas y trate de generar sonidos diferentes. 


Si quiere crear envolventes más complejas, puede repetir los tres últimos parámetros 
de la instrucción ENV para definir otras “secciones” de la envolvente (hasta un máximo 


de 4 secciones). 


Definición de una envolvente de tono 
La instrucción que define envolventes de tono es ENT. En su versión más sencilla, esta 
instrucción lleva 4 parámetros. Su forma es la siguiente: 


ENT (nunero de envolvente), Crunero de escalones), (altura de cada escalon), 
(duracion de cada escalor) 


Como siempre, estudiemos los parámetros uno por uno. 


Número de la envolvente 


Es el número de referencia (entre 0 y 15) por el que la invocaremos en la instrucción 
SOUND. 
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Número de escalones 


Este parámetro especifica en cuántas etapas queremos que la nota evolucione antes de 
terminar. Por ejemplo, si la nota ha de durar 10 segundos, podemos dividirla en 10 
etapas de 1 segundo cada una; en tal caso, el parámetro “número de escalones” tendría 
el valor 10. 


El margen de este parámetro es de O a 239. 


Periodo de tono de cada escalón 


En cada etapa, el tono puede variar con respecto al de la anterior en un número de 
unidades comprendido entre —128 y +127. Las variaciones negativas representan 
aumento del tono (tono más agudo); las variaciones positivas reducen el tono (tono 
más. grave). El valor mínimo del período de tono es 0. Téngalo en cuenta cuando pro- 
grame envolventes de tono. En el capítulo “Para su referencia ...” se da la lista comple- 
ta de los periodos de tono. 


Duración de cada escalón 


Este parámetro especifica la duración de cada escalón en unidades de centésimas de se- 
gundo. El margen de valores es de O a 255; esto significa que la duración máxima de 
cada escalón es de 2.56 segundos (el O se considera como 256). 


Por consiguiente, el producto del parámetro “número de escalones' por el parámetro 
“duración de cada escalón” no debería ser mayor que el parámetro “duración” especifi- 
cado en la instrucción SOUND. De lo contrario, el sonido terminará antes de que se 
hayan completado todos los escalones de la envolvente. (En ese caso el ordenador igno- 
ra el resto del contenido de la envolvente.) 


Análogamente, si la duración especificada en SOUND es mayor que la impuesta por 
el producto de “número de escalones” por “duración de cada escalón”, la nota continua- 
rá sonando aunque se hayan terminado los escalones de la envolvente de tono, y lo hará 
con el tono correspondiente al de la última etapa de la envolvente. 


Para practicar con las envolventes de tono, pruebe el siguiente programa: 
19 ent 1,199,2,2 


2% sound 1,142,209,15,,1 
run 


La línea 20 especifica un sonido con número de tono igual a 142 (LA internacional), 
duración de 2 segundos, volumen inicial igual a 15 (el máximo), sin envolvente de volu- 
men (parámetro en blanco ,,) y con envolvente de tono número 1. 


En la línea 10 se define la envolvente de tono, la cual consiste en 100 escalones de altura 
2 (reducción del tono) y duración 0.02 segundos (2x0.01). 


—__ _—_—_— Q_»>_a.n. Q_——_— 
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Pruebe las siguientes formas de la línea 10 y trate de escuchar el efecto de las diferentes 
envolventes de tono: 


19 ent 1,198,-2,2 
19 ent 1,19,4,20 
10 ent 1,19,-4,29 


Cambie ahora la instrucción sound y la envolvente de tono escribiendo: 


19 ent 1,2,17,79 

29 sound 1,71,140,15,,1 
39 goto 19 

run 


Pulse- [ESC] dos veces para detener el programa. 


Se puede combinar las instrucciones ENV, ENT y SOUND para crear sonidos más 
complejos. Empiece con el siguiente programa: 


19 env 1,190,1,3 

28 ent 1,1900,5,3 

36 souhd 1,142,380,1,1,1 
rur 


Cambie la línea 20 por la siguiente: 


29 ent 1,199,-2,3 
run 


Y finalmente pruebe el siguiente programa: 


10 env 1,190,2,2 

26 ent 1,190,-2,2 

38 sound 1,142,209,1,1,1 

run 
Si quiere crear envolventes más complejas, puede repetir los tres últimos parámetros - 
de la instrucción ENT para definir otras “secciones” de la envolvente (hasta un máximo 
de 4 secciones). 


Haga usted mismo otras pruebas. Por ejemplo, incluya ruido en la instrucción SOUND 
y añada más secciones a las envolventes de volumen y de tono. 


En el capítulo “Lista completa de las palabras clave del BASIC de AMSTRAD?” explica- 
remos con todo detalle las diversas instrucciones de sonido. Si le interesan los aspectos 
más melódicos del sonido, consulte la sección “El sonido de la música” del capítulo titu- 
lado “Cuando usted guste ...”. 
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Parte 10: Introducción a los sistemas 
operativos AMSDOS y CP/M 


¿Qué es AMSDOS? 


Cuando se enciende o reinicializa el ordenador, éste queda sometido al control de 
AMSDOS. Estas letras son abreviaturas de *AMStrad Disc Operating System” (sistema 
operativo de disco AMSTRAD). AMSDOS dispone de las siguientes funciones e ins- 
trucciones de manejo de ficheros: 


LOAD "nombresfi"” 
RUN "nombretfi" 
SAVE "nombretfi" 
CHAIN "nombre+fi" 
MERGE "nombretfi” 
CHAIN MERGE "nombre+i" 
OPENIM "nombresfi" 
OFENOUT "nombre+i* 
CLOSEIN 

CLOSEGUT 

CAT 

EOF 

INPUT $9 

LINE INPUT $9 

LIST $9 

FRIMNT $92 

WRITE $9 


así como de diversas órdenes para el manejo de discos. 


Estas órdenes son las llamas órdenes externas, que se escriben precedidas del símbo- 
lo ; (tecla ( con [MAYS).. 


Las órdenes externas más utilizadas son las siguientes: 


Pa 
b 
¡tape [que se puede subdividir eh ¡tape.in y !tape.out) 

idisc (que se puede subdividir en idisc.in y idisc.out) 

Las órdenes ¡a y ¡b sólo se utilizan cuando se tiene conectada la segunda unidad de 
disco; indican a la máquina con qué unidad debe realizar las órdenes que se le den en 
lo sucesivo. 
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Por ejemplo, las órdenes 


ja 
load "nombretfi" 


piden al ordenador que cargue el programa especificado leyéndolo del disco que está 
insertado en la unidad A. 


Si no se especifica |a ni ¡b, el ordenador opera con la unidad implícita, que es la A. 


Si sólo se está utilizando la unidad integrada en el ordenador, éste la considera como 
unidad A, y no es necesario especificar ¡a ni ¡b. De hecho, si en esa situación se le 
da al ordenador la orden ¡b, éste responde con el mensaje: 


Drive B: disc missing Unidad B: falta el disco 
Retry, Ignore or Cancel Reintentar, Ignorar o Cancelar 


y usted debe responder con C (de cancelar). 


¿Cómo se utiliza la cinta? ... 


La orden |tape indica al ordenador que en lo sucesivo debe realizar todas las funciones 
de manejo de ficheros (load, save, etc.) con el magnetófono de cassette externo en lu- 
gar de con el disco. Si no se especifica ¡tape, el ordenador trabaja con el medio de 
archivo de datos implícito, que es el disco. 


Para volver a trabajar con el disco después de especificar ¡tape, escriba la orden: 


idisc 


También puede ocurrir que se desee, por ejemplo, leer de la cinta y grabar en disco. 
Para ello sirve la orden. 


¡tape.in 


que indica al ordenador que en lo sucesivo debe realizar las operaciones de lectura con 
la cinta, pero seguir realizando las de escritura con el disco. 

Análogamente, para leer datos del disco y grabarlos en cinta, primero se da la orden 
idisc.in, para cancelar la anterior ¡tape.in, y luego ¡tape.out, para dirigir la salida 
de datos hacia la cinta. 

Así pues, |tape.in y |tape.out son opuestas a ¡disc.in y ¡disc.out, respectivamente, 
y viceversa. 

En los capítulos titulados “Discos y cintas? y 'AMSDOS y CP/M? se puede encontrar 
más amplia información sobre todas las posibilidades de transferencia de datos entre 
ordenador, disco y cinta. 
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Copia de programas entre discos y cinta 


En la parte 7 de este “Curso de introducción” el lector ha aprendido a inicializar discos 
nuevos sirviéndose del programa DISCKIT3 (cara 1 del juego de discos maestros de 
CP/M), y también a copiar programas de un disco a otro. A la vista de la descripción 
que acabamos de hacer de las órdenes 

¡tape ¡disc ¡tape.in ¡tape.out Idisc.in idisc.out la lb 


debería ser capaz de cargar y grabar programas de disco o de cinta, utilizando la unidad 
A o la B. Otras órdenes externas son las siguientes: 


dir ¡drive era ren ¡user 


Las explicaremos en el capítulo titulado 'AMSDOS y CP/M?. 


Copia de discos con CP/M 


El contenido completo de un disco se puede copiar a otro utilizando el programa 
DISCKIT3 (cara 1 del juego de discos maestros de CP/M). 


Puede utilizar el método que vamos a describir para copiar los propios discos maestros. 


Inserte el primer disco maestro de CP/M en la unidad, con la cara 1 hacia arriba, y 
escriba 


¡cpm 
Cuando aparezca el mensaje A>, escriba 
disckit3 


Al cabo de unos instantes verá aparecer en la pantalla el mensaje de presentación de 
DISCKITJ3, seguido de 


One drive found 


Esto confirma que estamos ejecutando el programa de ayuda DISCKIT3 y que el orde- 
nador ha detectado una unidad de disco (la incorporada en la máquina). 


En cambio, si está conectada la segunda unidad de disco, el mensaje será: 


Two drives found 


€_—— a 


1/78 Curso de introducción 


En la parte inferior de la pantalla se puede ver el siguiente menú: 


Copy | 7 Copiar 

Format al Inicializar 
Verify 2 Verificar 

Exit from program | g Fin del programa 


Es el menú principal del programa DISCKIT3. Los números recuadrados hacen refe- 
rencia a las teclas de función del teclado numérico (marcadas con f0, f1, f4 y £7). Pul- 
sando una de estas teclas se elige la opción deseada. 


Observe que la opción 0 de este menú hace que se abandone el programa DISCKIT3 
y se vuelva al modo directo de consola de CP/M (inductor A>). 


Como lo que queremos hacer ahora es copiar un disco, pulse la tecla de función núme- 


ro 7 (f7). 


PRECAUCION 
AL COPIAR SOBRE UN DISCO SE BORRA SU CONTENIDO ANTERIOR 


Copia en un sistema de una sola unidad de disco 


Suponiendo que su sistema sea de una sola unidad de disco (es decir, que no tenga co- 
nectada la segunda unidad), el mensaje que aparecerá en la pantalla es: 


Y Copy Copiar 
Cualquier otra tecla 


Any other key to exit menu para volver al menú 


En este momento debe extraer el disco de CP/M e insertar el disco que va a copiar (el 
disco fuente). Si va a copiar el disco de sistema de CP/M, déjelo en la unidad de disco. 


Cuando haya insertado el disco fuente, pulse la tecla Y (de yes, “*sí””), lo que equivale 
a decir: *“de acuerdo, copia el disco”. 
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El ordenador comprueba cuál es el formato del disco fuente y exhibe el mensaje ade- 
cuado en la primera línea de la pantalla. 


Al cabo de unos segundos aparece el mensaje 


Insert disc to WRITE Insertar disco para ESCRIBIR 
Press any key to continue Pulsar cualquier tecla para continuar 


En este momento debe extraer de la unidad el disco fuente, insertar el disco sobre el 
que quiere copiar (disco de destino) y pulsar una tecla. 


En la pantalla aparece información sobre el formato que va a tener el disco destino 
(aun cuando sea un disco nuevo no inicializado). 


Si el disco destino no está inicializado, o no lo está correctamente, aparecerá el mensaje 


El disco no está inicializado 
Disc isn't formatted (or faulty) (o es defectuoso) 


Going to format while copying Voy a inicializar al copiar 
Disc will be system format El disco tendrá formato de 
sistema 


o alguno similar, dependiendo del formato del disco fuente. 
Cuando el ordenador esté otra vez dispuesto a seguir leyendo el disco fuente, emitirá 
el mensaje 


Insert disc to READ Insertar disco para LEER 

Press any key to continue Pulsar cualquier tecla para continuar 
y usted debe insertar nuevamente el disco destino. 
El proceso se repite las veces necesarias hasta que la copia está terminada; entonces 


aparece el mensaje: 


Copy completed Copia terminada 
Remove disc Extraer el disco 
Press any key to continue Pulsar cualquier tecla para continuar 


Siga entonces las instrucciones que vea en la pantalla: pulse Y para copiar otro disco, 
o cualquier otra tecla para volver al menú. 


Protección contra escritura 


El sistema no permite copiar sobre un disco que tenga abierto el orificio de protección 
contra escritura. Si lo intenta, el ordenador emite el mensaje: 
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Disc write-protected El disco está protegido contra escritura 
Insert disc to WRITE Insertar disco para ESCRIBIR 
Reetry or C-ancel R-eintentar o C-ancelar 


Lo que se debe hacer entonces es pulsar C para cancelar la operación, extraer el disco 
e insertar el disco sobre el que sí se quiere copiar, con el orificio de protección 


obturado. 


Es muy importante no cerrar los orificios de protección de los discos que contengan 
programas valiosos. NO CERRAR NUNCA los orificios de protección de los discos 


maestros de CP/M. 


Copia en un sistema de dos unidades de disco 


Siga las instrucciones de la sección anterior para cargar el programa DISCKIT3 (cara 
1 del juego de discos de CP/M); elija la opción copy pulsando la tecla f7 en el menú. 


El programa ofrece un nuevo menú: 


Reas from A: Leer en A: 


Read from B: | Leer en B: 


Exit menu Vuelta al menú 


Al copiar en un sistema de dos unidades de disco ya no es necesario intercambiar repe- 
tidamente el disco fuente y el disco destino. Pulse la tecla FB para copiar desde la uni- 


dad A. 


El programa ofrece un tercer menú: 


Write to A! Escribir en A: 


Write to B: Escribir en B: 


Exit menu Vuelta al menú 
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Este menú permite elegir la unidad en la que se desea poner el disco destino. Se puede 
elegir la misma que para el disco fuente, pero entonces no se aprovecha la ventaja que 
representa disponer de la segunda unidad de disco, y habrá que intercambiar los discos 
fuente y destino varias veces durante el proceso de copia. 


Lo más conveniente es, pues, pulsar f6 para copiar hacia la unidad B. 


Introduzca los dos discos en las unidades correspondientes y pulse Y para poner en 
marcha el proceso de copia. 


El ordenador emite información acerca del formato de los dos discos. Si el disco desti- 
no no está inicializado, o no lo está correctamente, el ordenador lo inicializará al mis- 
mo tiempo que realiza la copia. 


Una vez concluido el proceso, se emite el siguiente mensaje: 
Copy completed Copia terminada 


Remove both discs Extraer los dos discos 
Press any key to continue Pulsar cualquier tecla para continuar 


Extraiga entonces los dos discos antes de proseguir. A continuación puede optar por 
copiar otro disco (pulsando Y) o por volver al menú de DISCKIT3 (pulsando cualquier 
otra tecla). 


Verificación de discos 


El programa DISCKIT3 también ofrece la opción de verificar (comprobar) discos. 


Esta opción exhibe en la pantalla información acerca del formato del disco; lee todos 
los ficheros del disco e informa sobre los errores que encuentra. 


El proceso completo de verificación de un disco es el siguiente: inserte la cara 1 de los 
discos de CP/M y escriba 


¿cpm 
Cuando aparezca el inductor A> escriba 
disckit3 


Seleccione la opción verify del menú principal de DISCKIT3 pulsando la tecla f1 y lue- 
go siga las instrucciones que vayan apareciendo en la pantalla. 


Si tiene conectada la segunda unidad de disco, el programa le ofrece la opción de elegir 
qué unidad de disco quiere utilizar para la verificación. 


Una vez instalado el disco a verificar, pulse Y para iniciar el proceso. 


O O O DO DO DO DO DO OO DO DO O O AN 
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Cuando la verificación termina, se emite el siguiente mensaje: 


Verify completed Verificación terminada 
Remove disc Extraer el disco 
Press any key to continue Pulsar cualquier tecla para continuar 


Si tiene conectada la segunda unidad de disco, el programa exige que extraiga los dos 
discos antes de permitirle continuar. Entonces puede optar por verificar otro disco 
(pulsando Y) o por volver al menú de DISCKIT3 (pulsando cualquier otra tecla). 


Utilización del programa DISCKIT en CP/M 2.2 


Si desea inicializar, copiar o verificar discos creados con o para el CPC664 o el sistema 
CPC464+ DDY1 (los cuales sólo disponen de CP/M 2.2), puede utilizar la versión del 
programa DISCKIT que está grabada en la cara 4 del juego de discos de CP/M. El pro- 
grama se llama DISCKIT2 y funciona de la misma manera que el DISCKIT3 que acaba- 
mos de describir. 


Para ejecutar DISCKIT2, inserte el segundo disco de CP/M, con la cara 4 hacia arriba, 
en la unidad de disco incorporada al ordenador y escriba 


¡cpm 
Cuando aparezcan el mensaje de presentación de CP/M 2.2 y el inductor A>, escriba 
disckit2 


Elija las opciones requeridas y siga las instrucciones que aparezcan en la pantalla igual 
que si se tratase de DISCKIT3. 


Observación. Al copiar, el programa DISCKIT2 utiliza la memoria de la pantalla para 
almacenar datos temporalmente. Esto hace que en ella aparezcan imágenes aleatorias 
durante el proceso de copia. 


Información adicional 


En los capítulos 4 al 9 se describe la utilización de otros programas del juego de CP/M. 


Finalmente, antes de proseguir, asegúrese de que ha tenido en cuenta las advertencias 
que hemos hecho al principio de este manual, en la sección titulada IMPORTANTE”: 


NOTAS DE INSTALACIÓN $5, 6 y 7 (pág. 4) 
NOTAS DE OPERACIÓN 1, 2, 3, 4, 5, 6, 7 y 9 (págs. 4 y 5) 
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Parte 11: Introducción al gestor de bancos 
de memoria 


El segundo bloque de 64K de memoria 


El CPC6128 está dotado de 128K de RAM (random acces memory, memoria de acceso 
aleatorio) divididos en dos bloques de 64K cada uno. CP/M Plus utiliza todos los 
128K, pero en cambio BASIC normalmente no se sirve más que de los 64K primeros. 
Sería una pena no aprovechar los otros 64K en los programas de BASIC, así que hemos 
incluido un programa que proporciona órdenes gracias a las cuales se puede utilizar 
esa memoria con dos usos específicos: como almacén de imágenes de pantalla o como 
espacio para almacenar cadenas de caracteres. 


El programa se llama “gestor de bancos” (*banco” es un término técnico que significa 
“bloque de memoria”). 


Control de imágenes de pantalla con el gestor de 
bancos 


El ordenador 6128 visualiza y mantiene constantemente actualizada una imagen de 
pantalla. Para ello necesita 16K de memoria en la que almacenar información acerca 
del color y el brillo de todos los pixels (puntos) de la pantalla. En la memoria del 6128 
hay espacio suficiente para almacenar información sobre seis imágenes de pantalla si- 
multáneamente (16K para cada una). El gestor de bancos proporciona las órdenes nece- 
saria para manipular y visualizar desde BASIC cinco de las pantallas posibles. 


Cuando se conecta el ordenador, la imagen que se observa en la pantalla está formada 
con los datos almacenados en el primer bloque de 16K (que denominaremos “bloque 
1”), dentro del primer banco de 64K. Las otras cuatro pantallas están en el segundo 
banco de 64K y les llamaremos bloque 2, bloque 3, bloque 4 y bloque 5. 


En realidad, el único bloque cuya información se consulta para formar la imagen es 
el bloque 1. Para visualizar los bloques del segundo banco (bloques 2, 3, 4 y 5) hay 
que transferirlos al bloque 1. El gestor de bancos proporciona las órdenes necesarias 
para realizar esas transferencias: ¡ SCREENCOPY copia el contenido de un bloque en 
otro, borrando la información previamente grabada en el bloque destino; ¡ SCREEN- 
SWAP intercambia el contenido de dos bloques. 
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Las órdenes del gestor de bancos son órdenes externas, similares a las de AMSDOS ya 
descritas en este capítulo, y van precedidas, por consiguiente, por el símbolo ¡ (tecla 
( con IMAYS)). 


Utilización del gestor de bancos 


Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. Inserte en la unidad de dis- 
co la cara 1 del juego de discos del sistema y escriba 


RUN "BANKMAN" 


El procedimiento de carga se explica en el capítulo 7, partes 13 y 14, en las que se habla 
de las RSX (Resident System eXtensions, ampliaciones del sistema residentes). Convie- 
ne tener cierta idea de cómo funcionan estas rutinas y de cómo reservarles espacio en 
la memoria antes de utilizarlas en los programas. No obstante, para probar los siguien- 
tes ejemplos no es necesario conocer el procedimiento de carga. 


Escriba: 
MODE 1 


PRINT "ESTA ES LA PANTALLA IMPLICITA" 
¡ SCREENSWAP, 1,2 


El texto debe haber desaparecido como consecuencia de la última orden (screenswap 
significa *““intercambio de pantalla””). Lo que ahora hay en la pantalla es la información 
que antes estaba almacenada como “pantalla 2” (en el bloque 2). Si la máquina estaba 
recién encendida, será seguramente una imagen aleatoria. Para borrarla escriba: 


MODE 1 
y a continuación: 


PRINT. "ESTA ES LA PANTALLA 2” 
¡SCREENSWAP, 1,2 


Ha vuelto a aparecer el texto original. Al repetir la orden ¡ SCREENSWAP,1,2 hemos 
vuelto a intercambiar las dos pantallas. Con la orden ¡ SCREENSWAP se puede inter- 
cambiar cualquier pantalla de las cinco disponibles con cualquier otra; pero el efecto 
sólo será visible si una de las pantallas implicadas es la número 1. 


La otra orden es ¡SCREENCOPY (*“copia de pantallas””). Con ella se copia una panta- 
lla sobre otra y se borra la que originalmente había en el bloque destino. 
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Escriba: 
MODE 1 


FRINT "VAMOS A COPIAR ESTA PANTALLA" 
¡SCREENCOPY,Z, 1 


La pantalla fuente, la 1, se ha copiado en la pantalla destino, la 2. Si ahora invertimos 
el orden de los parámetros, 


MODE 1 
¡ SCREENCOPY,1,2 


el contenido de la pantalla actualmente visible (es decir, la 1) es sustituido por el de 
la pantalla 2. 


Así pues, el primer parámetro representa la pantalla destino; el segundo, la pantalla 
fuente. 


Al copiar pantallas se producen imágenes distorsionadas si los modos de pantalla son 
diferentes o si la pantalla visible ha sido desplazada hacia arriba después de la última 
ejecución de una orden MODE. Las órdenes de control de pantallas del gestor de ban- 
cos están pensadas para su utilización en pantallas gráficas más bien que en pantallas 
de texto, y en aquéllas el desplazamiento de la pantalla es más improbable. 


Utilización del gestor de bancos en el 
almacenamiento de cadenas literales 


El programa gestor de bancos proporciona otras cuatro órdenes externas mediante las 
cuales se puede convertir el segundo banco de memoria (64K) en un archivo de cadenas 
literales. 


Casi todos los programas se pueden dividir en dos partes: las instrucciones del progra- 
ma y los datos con los que opera. Un buen ejemplo sería un programa de base de datos, 
tal como una lista de nombres y direcciones. Un programa así utilizaría vectores litera- 
les para almacenar los nombres y las señas. 


Las cadenas literales se pueden almacenar en el segundo banco de 64K de memoria, 
una tras otra. El espacio dedicado a almacenar las cadenas se puede dividir en una serie 
de compartimentos que denominaremos registros. Los registros son de longitud fija, 
entre 2 y 255 caracteres cada uno, mientras que la longitud de las cadenas literales de 
BASIC no es fija, sino que depende de los caracteres que las integren. El método de 
almacenamiento mediante registros proporciona compartimentos de tamaño unifor- 
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me: una especie de casillero en el que se guarda la información de forma bien organiza- 
da. Cada operacion de escritura o lectura de datos de un registro va acompañada de 
un avance automático al registro siguiente, el cual queda dispuesto para la siguiente 
operación. El registro con el que se va a realizar la siguiente operación es el “registro 
actual”, y es el que las órdenes del gestor de bancos utilizarán si no se especifica otro 
diferente. 


A este sistema de gestión de la memoria le hemos dado el nombre de *“RAMdisc” o 
“disco virtual” porque funciona de forma muy parecida a como lo hacen los sistemas 
de fichero de acceso aleatorio en disco, con la única diferencia de que el soporte físico 
es la RAM en lugar de un disco. 


Lea las siguientes descripciones de las diversas órdenes; si no aprende a utilizarlas inme- 
diatamente, al menos apreciará para que sirven. Después practique con los ejemplos. 


La primera orden de RAMádisc es ¡BANKOPEN. Esta orden especifica el número de 
caracteres que va a tener cada registro. La sintaxis es: 


¡ BANKOPEN, p 


donde n es un número que especifica la longitud de los registros. El número n puede 
tener cualquier valor del margen de 0 a 255, pero los valores 0 y 1 producen efectos 
incontrolados. 


¿BANKWRITE almacena una cadena literal en el “registro actual”. Al terminar la eje- 
cución de la orden, el “puntero de registro” pasa a apuntar al registro siguiente a aquél 
en el que se ha escrito y lo convierte en el nuevo “registro actual”. La sintaxis es: 


¡BANKWRITE,E6r%, as 
o bien 
¡BANKWRITE,€r%, as, n 


donde r% es una variable entera que contiene, al terminar la orden, cierta información 
acerca de la operación que se acaba de realizar. a$ es una variable literal que contiene 
los caracteres que se han de almacenar en el registro. En el primero de estos dos ejem- 
plos se escribe en el registro actual; en el segundo ejemplo el parámetro opcional n es- 
pecifica el número de registro en el que se debe escribir. 


'BANKREAD examina un registro y asigna su contenido a una cadena literal; al termi- 
nar la lectura, incrementa el puntero de registros y convierte en registro actual el si- 
guiente a aquél en que se realizó la operación. El contenido de los registros no resulta 
modificado por las operaciones de lectura. La sintaxis de ¡ BANKREAD es la siguiente: 


¡ BANKREAD, Or%, as 
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o bien 
¡BANKREAD, lr%, at,n 


donde r% es una variable entera que contiene, al terminar la orden, cierta información 
acerca de la operación que se acaba de realizar. a$ es una variable literal a la que se 
asigna los caracteres leídos en la operación. En el primero de estos dos ejemplos se lee 
el registro actual; en el segundo ejemplo el parámetro opcional n especifica el número 
de registro que se debe leer. 


La última orden de este grupo es ¡BANKFIND. Esta orden examina los registros en 
busca de una cadena literal especificada. Si la encuentra, entrega el número de registro 
en el que la ha encontrado. La sintaxis de ¡BANKFIND es: 


¿¡BANKFIND, €r%, a$ 
o bien 

¡BANKFIND, Er%, a+, n 
o bien 


¡BANKFIND,6r%, a$,n,m 


donde r% es una variable entera que contiene, al terminar la orden, o bien el número 
de registro en el que se ha encontrado la cadena, o bien un código que indica que la 
cadena no ha sido encontrada. a$ es la cadena que se busca. El parámetro opcional 
n especifica el número de registro a partir del cual se debe empezar a buscar. Si no se 
especifica n, la búsqueda comienza a partir del registro actual. El segundo parámetro 
opcional, m, especifica el número de registro en el que se debe abandonar la búsqueda. 
Si se'omite m, la búsqueda continúa hasta el final de los 64K de memoria, con lo que 
se puede sobrepasar el final de los datos escritos por el programa. 


Pruebe ahora los siguientes ejemplos. Si ya ha ejecutado el programa para estudiar las 
órdenes de manipulación de pantallas y no ha reinicializado la máquina desde entonces, 
las órdenes de RAMdisc seguirán en la memoria. De lo contrario, inserte la unidad de 
discos la cara 1 del juego de discos del sistema y escriba lo siguiente: 

RUN "BANKMAN" 
- Ahora escriba: 


¡ BANKOPEN, 29 


Esta orden especifica que los registros van a ser de 20 caracteres cada uno y selecciona 
como registro actual el número 0. 
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1 


1 


Escriba: 
a$="PRIMER REGISTRO" +SPACE$(5) 


con lo que se forma la cadena a$ con longitud de 20 caracteres. 


Escriba ahora: 
rh=g 


para inicializar r%. 


Escriba: 


¡BANKWURITE,Or%, ab 


Esta orden escribe a$ en el primer registro (el número 0). A continuación escriba: 


de=SPACES (20) 
¡BANKREAD, Er%, dé, E 
PRINT d$ 


La primera orden iguala d$ a una cadena de 20 espacios, longitud suficiente para poder 
asignarle el contenido del registro en la operación de lectura. La segunda orden lee el 
registro número 0 y asigna su contenido a la variable literal d$. Antes de la lectura el 
registro actual era el número 1 (actualizado por la anterior ¡BANKWRITE); por eso 
hemos tenido que especificar que la lectura debía realizarse en el registro número 0. 
De no haberlo hecho así, se habría leído el registro actual. La última orden de este 
ejemplo escribe en la pantalla el resultado de la lectura; si todo ha ido bien, d$ debería 
ser igual a la cadena “PRIMER REGISTRO” seguida de $ espacios. 


Escriba lo siguiente: 


bé="DOS"+SPACES(17) 
có="TRES"+SPACE$(16) 
¡BANKWRITE,Or%, bs, 1 
¡BANKWRITE,Cr%,c$ 


Estas órdenes escriben b$ y c$ en los .registros 1 y 2. En la primera orden 
'BANKWRITE hemos incluido el parámetro opcional, con lo que b$ ha quedado al- 
macenada en el registro 1. Esta misma orden ha incrementado el puntero de registro; 
al ejecutarse la segunda orden ¡ BANKWRITE, el puntero apunta al registro 2, y es en 
él donde se almacena c$. 


Escriba: 


PRINT 1% 
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El resultado debería ser 2. Este número se puede considerar como el número del último re- 
gistro sobre el que se ha operado, o bien como el número del registro actual menos uno. 
En este ejemplo, el último registro utilizado es el 2; el registro actual (o sea, el registro 
sobre el que actuará la próxima orden de RAMdisc si no se especifica otra cosa) es el 3. 


Esta variable, r%, proporciona siempre información acerca de cómo se ha desarrollado 
la última operación. Si la operación ha concluido con éxito, la variable toma un valor 
positivo que representa un número de registro. En caso contrario, el valor es negativo 
e indica un código de error. ¡BANKWRITE y ¡BANKREAD pueden generar los dos 
códigos de error siguientes: 


—1 Indica que se ha alcanzado el final del fichero. Esto ocurre cuando ya se han utili- 
zado todos los registros o cuando se especifica un número de registro que no existe. 
—2 Indica un fallo en la conmutación de bancos. No debería ocurrir nunca. 
Pruebe los siguientes ejemplos: 
dé=STRINGS(29,"x") 


¡ BANKOPEN, 20 
FOR m=1 TO 3: ¡BANKWRITE,lr%, d$6: NEXT 


La primera orden asigna a la variable literal d$ una cadena formada por 20 letras “X”. 
¡BANKOPEN reinicializa el puntero de registros a 0, de modo que |¡BANKWRITE es- 
cribe la cadena d$ en los registros 0, 1 y 2, borrando su contenido anterior. 


Ahora escriba: 


a$="PRIMERO" 
¡BANEWRITE,lr%, at, 9 


Estas órdenes escriben la palabra “PRIMERO? en el registro 0, superponiéndola a algu- 
nas de las “X” que había antes en él. Vuelva a igualar d$ a una cadena de espacios con 


d$=SPACES (26) 
y escriba 
¡BANKREAD, Er%, d%, Y 


Esta orden lee el registro O y asigna su contenido a d$. 


Repasemos todo lo que hemos hecho hasta ahora. Hemos escrito en los tres primeros 
registros sendas cadenas formadas por 20 letras “X” cada una. Hemos cambiado las le- 
tras “X” del registro O por la palabra “PRIMERO”. Finalmente, hemos vuelto a definir 
d$ como una cadena de 20 espacios. Si ahora escribimos 


PRINT dé 
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el resultado debe ser “PRIMEROXXXXXXXXXXXXX”. Este ejemplo ilustra una 
consideración importante que se debe tener presente al utilizar estas Órdenes. Si la cade- 
na que se escribe en un registro no lo llena completamente, los caracteres antiguos so- 
bre los que no se ha escrito seguirán estando en el registro. Esto puede ser ventajoso 
en ocasiones, pero en general será conveniente escribir una cadena de espacios (o sea, 
de caracteres ASCII 32) en el registro antes de actualizar la información en él almacena- 
da. Lo mismo se puede decir acerca de la cadena a la que se va a asignar los caracteres 
leídos en un registro: si la longitud de la cadena es mayor que la longitud del registro, 
al final de ella quedarán caracteres que no habrán resultado de la operación de lectura. 
Ésta es la razón por la que hemos borrado (o igualado a una cadena de espacios) la 
cadena d$ antes de asignar el contenido del registro 0. 


Es posible escribir una cadena en un registro que sea demasiado corto para recibir la 
cadena completa. En tal caso se ignoran los caracteres de la cadena (los últimos por 
la derecha) que no quepan en el registro. 


Análogamente, si se lee un registro y se asigna su contenido a una cadena demasiado 
corta, los caracteres que no quepan en ella serán ignorados. En las operaciones norma- 
les con cadenas, BASIC ampliaría automáticamente la cadena para aceptar todos los 
caracteres, pero esto no es así cuando se utilizan órdenes externas. 


Finalmente, vamos a describir la orden ¡BANKFIND. Esta orden sirve para examinar 
los registros en busca de una sucesión de caracteres especificada. Por ejemplo, si el re- 
gistro número 24 empieza con la palabra “DANIEL”, la orden 


¡BANKF IND, Br%, *DANTEL" 


la encontrará. Esta función es extremadamente útil en los programas de bases de datos, 
en los cuales se puede necesitar, por ejemplo, buscar un nombre a lo largo del fichero. 


'BANKEFIND inicia la búsqueda a partir del registro actual y la continúa hasta que en- 
cuentra la cadena o hasta el final de los 64K de memoria, si no se especifica otra cosa. 


Se puede incluir un parámetro para especificar el número de registro a partir del cual 
se debe buscar. Después de éste se puede incluir otro parámetro para especificar en qué 
número de registro se debe interrumpir la búsqueda. 


'BANKFIND también puede buscar una cadena que no esté al principio de registro. 
Para ello, al principio de la cadena buscada se incluyen tantos caracteres chr$(0) como 
posiciones haya en el registro antes de los buscados. Los caracteres chr$(0) actúan co- 
mo “símbolos comodín” (como los ? en los nombres de ficheros de CP/M), con el signi- 
ficado de “cualquier carácter”. Por ejemplo, 


as=STRINGS(18,0) +"DANIEL" 
¡ BANKF IND, Er%, ad, Y 


busca el primer registro en el que figure la palabra “DANIEL?” en las posiciones 11.* 
a 16.*? Los diez primeros caracteres del registro podrían contener un número de teléfo- 
no o cualquier otra información que ¡BANKFIND ignoraría. 
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Al concluir la operación, la variable r% contiene el número del registro en el que se 
ha encontrado la cadena, o bien el código —3 si no se la ha encontrado. 


Información adicional 


En el capítulo 8 se puede encontrar más información sobre el gestor de bancos; estudie 
también las partes 13 y 14 del capítulo 7, en las que se describen las RSX. 


Finalmente, antes de proseguir, asegúrese de que ha tenido en cuenta las advertencias 
que hemos hecho al principio de este manual, en la sección titulada IMPORTANTE: 


NOTAS DE OPERACIÓN 1, 2, 3 y 9 (págs. 4 y 5). 


Aquí termina este “Curso de introducción” al CPC6128. Es de esperar que usted haya 
aprendido para qué sirve la mayor parte de las teclas, cómo utilizar las instrucciones 
más sencillas de BASIC, cómo preparar un disco virgen, cómo realizar las funciones 
más elementales de manejo de discos, tales como LOAD, SAVE y CAT, y cómo utilizar 
unas cuantas órdenes de AMSDOS, CP/M y el gestor de bancos. 


En el resto del manual abordaremos cuestiones más avanzadas. Estudiaremos el 
BASIC de AMSTRAD, el funcionamiento de la unidad de disco, con secciones dedica- 
das a AMSDOS y CP/M, y daremos una introducción a un nuevo lenguaje: el DR. 
LOGO de Digital Research. 


¡Buena suerte y que disfrute! 
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Capítulo 2 
La génesis de un programa 


Pues bien. Usted ya ha leído el “Curso de introducción” y tiene ante sí el ordenador 
encendido. Ya sabe cómo hacer que el ordenador repita una tarea varias veces con la 
instrucción FOR ... NEXT y cómo hacerle realizar operaciones de forma condicional 
con la instrucción IF ... THEN ... . 


Pero pronto empezará a cansarse de ver su nombre repetido hasta la saciedad en la pan- 
talla y querrá aprender algo de informática más seria, algo útil o divertido. En el capí- 
tulo siguiente damos la lista de todas las palabras clave del BASIC de AMSTRAD, jun- 
to con su sintaxis, es decir, la forma de utilizarlas. Con estas herramientas en la mano, 
el único límite a lo que puede obtener del ordenador lo fijará su imaginación. 


Si no ha utilizado antes ningún otro ordenador, es probable que la palabra *programa- 
ción” le suene amenazadora. ¡No le tenga miedo! Programar es más fácil de lo que us- 
ted cree, y desde luego mucho más fácil de lo que la jerga técnica da a entender. 


No se deje asustar por BASIC y verá qué pronto empieza a disfrutar de la programa- 
ción y de los frutos de su esfuerzo. Programar puede llegar a ser un ejercicio muy grati- 
ficante, en particular para el principiante que se pone a experimentar con la máquina 
y el lenguaje. Recuerde siempre que, a excepción del riesgo de borrar accidentalmente 
los discos de CP/M, nada que usted haga en el teclado puede dañar el ordenador; siem- 
pre vale la pena intentar algo nuevo. 


¿Por dónde empezamos? 


En programación, como en muchas otras actividades, lo más difícil es empezar. Sin 
embargo, lo peor que puede hacer es lanzarse directamente al teclado sin antes pensar 
para qué. 

El primer paso en el desarrollo de un programa debe ser establecer claramente qué se 
pretende que el programa haga y cómo se quiere que presente los resultados en la 
pantalla. 

Decidido esto, se puede empezar a escribir un programa que realice las funciones desea- 
das, preocupándose siempre de que el programa discurra suavemente de principio a fin, 
con el mínimo número de saltos posible. Un buen programa debe ser fácil de leer una 
vez listado, no un lío indescifrable que haga imposible la detección de errores o la depu- 
ración del programa. ; 

Afortunadamente, BASIC es un lenguaje muy tolerante que facilita la depuración de 
“los programas emitiendo mensajes que indican dónde está el error y en qué consiste. 
Además, hace posible la ampliación de los programas, pues permite intercalar líneas 
nuevas entre las ya existentes. 


—_ e A _—— 
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Un programa sencillo 


Manos a la obra. Vamos a escribir un programa que controle y mantenga un fichero 
con los nombres y números de teléfono de nuestros amigos. Le llamaremos “guía de 
teléfonos”. Para respetar las reglas que hemos enunciado, “¿qué debe hacer el progra- 
ma?”; “¿cómo debe presentar los resultados en la pantalla?” 


El programa debe permitirnos almacenar 100 nombres y números de teléfono. Cuando 
queramos averiguar un número de teléfono, escribiremos el nombre y el ordenador nos 
dará el número. Además, por si no recordamos cómo habíamos escrito algún nombre, 
el programa debe ser capaz de exhibir toda la información en la pantalla. Dicho sea 
de paso, esto ya nos hace empezar a pensar en la forma de presentación de los resulta- 
dos en la pantalla. 


De acuerdo, vamos al teclado. Empezaremos por escribir el nombre del programa: 
10 REM guia de telefonos 


No es imprescidible dar nombre a todos los programas, pero comprobará cuando tenga 
grabados unos cuantos que es muy útil poder averiguar de un golpe de vista cuál es 
cuál. 


Lo siguiente que necesitamos es poder captar por el teclado (con INPUT) una cadena 
de caracteres (quizá un nombre) para luego poder asignarlo a una variable. A la varia- 
ble que represente el nombre le llamaremos NOMBRES. Lo mismo se puede hacer con 
el número de teléfono; a la variable le llamaremos TEL$. 


¿Recuerda todavía los programas del “Curso de Introducción”? En algunos de ellos uti- 
lizábamos la instrucción INPUT para captar los valores de las variables. Escribamos: 


20 INPUT "Escriba el nombre: "¡NOMBRES 
30 INPUT "Escriba el numero de telefono! "¿TELS 
run 


En respuesta al programa podemos introducir un nombre (por ejemplo, Juan) y luego 
un número de teléfono (por ejemplo, 923 233717). 


El programa ha almacenado la información que le hemos sumistrado, pero no ha escri- 
to ningún resultado en la pantalla. Así pues, en algún lugar del programa necesitaremos 
instrucciones del tipo 


PRINT NOMBRES ... y «.. PRINT TELS 


con las que recuperemos los valores de las variables. 

Algo falla, ¿verdad? Dijimos que nuestro programa debería ser capaz de almacenar 100 
nombres con sus números de teléfono; si seguimos por este camino, necesitaremos 200 
A A AE A A A A 
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instrucciones INPUT para escribrir la lista en la pantalla. No se inquiete; los ordenado- 
res tienen un recurso que permite manejar con facilidad grandes cantidades de datos: 
se trata de las “listas”. Una lista es una variable que puede representar, con un solo 
nombre (tal como NOMBRES), un grupo de datos (en nuestro caso necesitamos 100) 
que se identifican por un índice. Cuando queramos referirnos a un dato concreto, lo 
citaremos por el nombre de la variable seguido del índice entre paréntesis; por ejemplo, 
NOMBRES$(27), donde 27 es el índice y NOMBRESS$ es lo que denominamos variable 
indexada. Si como índice ponemos una variable numérica, NOMBRES(x), en lugar de 
un número concreto, podemos manejar la lista completa de datos, del 1 al 100, varian- 
do el valor de x dentro de un bucle FOR ... NEXT (v. g., FOR x=1 TO 100). A medida 
que se va incrementando el valor de x, el índice de NOMBRES va señalando los dife- 
rentes elementos de la lista. 


En nuestro programa necesitamos dos listas, NOMBRES y TELS, cada una con capaci- 
dad para 100 elementos. Pero tenemos que informar al ordenador de nuestras intencio- 
ne, y para ello debemos dimensionar las listas con la instrucción DIM. Cambiemos las 
líneas 20 y 30: 


28 DIM NOMBRE$ (190) 
30 DIM TELS(190) 


Ahora ya podemos escribir el tramo del programa que nos va a permitir introducir 
nombres y números de teléfono. Añada las siguientes líneas: 


40 FOR x=i TO 1609 

SG INFUT;" Nombre "¡NOMBRES (x) 
£68 INPUT " Telefono "pTELS$(x) 
FO NEXT 

rur 


Pero no es probable que vayamos a introducir los 100 nombres de una vez, y además 
la forma de presentación en la pantalla es muy desordenada. Tenemos que organizar- 
nos mejor. En primer lugar, antes de captar un nombre, vamos a librarnos de todo el 
texto superfluo que tenemos en la pantalla: 


45 cls 


¿Qué podemos hacer para decirle al ordenador que de momento ya no queremos intro- 
ducir más datos? Podemos detener el programa pulsando [ESC] dos veces, pero cuan- 
do volvamos a teclear run perderemos todos los datos introducidos anteriormente. 


Ésta es la solución. Cada vez que el programa capte un nuevo nombre, haremos que 


examine el dato introducido para ver si consta de al menos un carácter o si, por el con- 
trario, es la “cadena vacía”. Si lo es, haremos que suspenda la captación de datos. Aña- 


da lo siguiente: 


ES IF NOMBRES$(x)="" THEN 89 
30 PRINT "Fin de la entrada de datos” 
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También necesitamos que el ordenador indique al usuario qué debe hacer para suspen- 
der la introducción de datos. Añada, pues, la siguiente línea: 


42 PRINT "Pulse [RETURN] para terminar" 


Ahora vamos a escribir las instrucciones que exhiban en la pantalla la información al- 
macenada. Primero la lista completa: 


99 FOR x=1 TO 199 
199 PRINT NOMBRES(x)3"."¡TEL$(X) 
119 NEXT 


Otra vez nos ocurre que el programa no sabe dónde pararse y continúa hasta el centési- 
mo elemento. Esto tiene fácil arreglo: 


95 IF NOMBRES(x)="" THEN 129 
129 PRINT "Fin de la lista" 


La línea 95 comprueba si NOMBRES (x) es la cadena vacía; si lo es, concluye la escritu- 
ra de la lista saltando a la línea 120. 


Atendamos a los otros requisitos que habíamos formulado al idear el programa. Nece- 
sitamos unas instrucciones que busquen en la lista un nombre introducido por el ususa- 
rio. Escriba lo siguiente: 


139 INPUT "Buscar "¡BUSCAS 

149 FOR x=1 TO 199 

159 IF INSTR(NOMBRES(x),BUSCAS$)=9 THEN 189 
166 PRINT NOMBRES (x)3" ";5TELS(x) 

1798 END 

189 NEXT 

199 PRINT"NO lo encuentro" 


En la línea 150 hay una instrucción nueva: INSTR. Esta instrucción determina si la ca- 
dena literal BUSCAS (que es el nombre que estamos buscando, captado en la línea 130) 
está contenida en NOMBRES$(x). Si no lo está, INSTR genera el valor 0, y entonces 
el programa salta a la línea 180 para probar con el siguiente valor de x. Si el programa 
ha examinado sin éxito todos los elementos de la lista, continúa en la línea 190, donde 
informa de lo que ha ocurrido. En cambio, si encuentra el nombre, INSTR produce 
un valor mayor que 0, lo que permite que el programa pase de la línea 150 a la 160 
para escribir el nombre y el número de teléfono y luego terminar con la instrucción 
END de la línea 170. 


Como ve, nuestro programa avanza muy deprisa, pero todavía nos queda mucho por 
hacer. Meditemos un poco sobre los inconvenientes de este programa, empezando por 
el orden en que funciona: primero capta la información, después la escribe completa 
en la pantalla, luego busca un nombre concreto. 
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¿Qué ocurre si ... ? 


Precisamente. ¿Qué ocurre si no queremos que los acontecimientos se produzcan en 
ese orden? Podríamos querer consultar un teléfono que introdujimos ayer. O podría- 
mos querer ampliar la lista con otros nombres. Esto nos plantea nuevos problemas, pa- 
ra los que tenemos que encontrar solución. Después de todo, en esto es en lo que consis- 
te la programación. Ya hemos dicho que BASIC es muy amable y nos permite rectificar 
e incluir nuevas instrucciones con gran facilidad; pero un buen programador habría 
pensado en todo esto de antemano. 


Otro grave inconveniente del programa consiste en que las listas quedan almacenadas 
solamente en la memoria del ordenador, la cual se borra cada vez que se apaga el orde- 
nador. De poco nos serviría este programa si tuviéramos que escribir todos los datos 
cada vez que lo ejecutásemos; así pues, necesitamos que el programa pueda grabar los 


- valores de los elementos de NOMBRES y TEL$ antes de que apaguemos el ordenador, 


y también que pueda cargar los datos cada vez que lo ejecutemos. 


Soluciones 


El primero de los problemas mencionados (el del orden de ejecución) se resuelve ha- 
ciendo que el programa dé la posibilidad de elegir entre las funciones que sabe realizar. 
De un programa de este tipo se dice que está “controlado por menú” pues, en efecto, 
ofrece un menú de opciones de entre las cuales se elige la deseada. Si alguna vez ha 
sacado dinero de un cajero automático, ya ha utilizado un programa de ordenador con- 
trolado por menú. Añadamos un menú a nuestro programa: 


32 PRINT"1. Introd. datos” 

33 PRINT"2. Listado" 

34 PRINT"3. Busgueda" 

35 PRINT"4. Grabar de datos” 

36 PRINT"S. Cargar datos" 

37 INPUT "Elija una opcion (1-5) "jel 
38 ON el GOSUB 49,799,139 


85 RETURN 
125 RETURN 
179 RETURN 
209 RETURN 


Hemos hecho que el programa escriba la lista de opciones y que capte la elección del 
usuario mediante una instrucción INPUT para asignarla a la variable el. La instrucción 
ON el GOSUB de la línea 38 funciona de la siguiente forma: si el=1, invoca la subruti- 
na de la línea 40; si el=2, invoca la subrutina de la línea 90, etc. 
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Puesto que todas las funciones están ahora en subrutinas (controladas por la instruc- 
ción ON el GOSUB), tienen que terminar en una instrucción RETURN. De ahí que 
hayamos incluido las líneas 85, 125, 170 y 200. 


¿Recuerda para qué sirve RETURN? Hace que BASIC retorne de la subrutina a la ins- 
trucción siguiente a aquella que invocó la subrutina. En nuestro caso, el punto de retor- 
no es la instrucción siguiente a la línea 38, que es la línea 40. Si dejamos que esto ocu- 
rra, el programa entra en la subrutina de “Introducción de datos'. Para impedirlo aña- 
dimos la línea 


39 GOTO 32 


que reconduce el programa al menú. 
Ejecute el programa y vea cuánto hemos progresado. 


Bien; vamos a echar un vistazo al listado. (Detenga el programa pulsando [ESC] dos 
veces.) Escriba: 


LIST 


Esto es lo que tenemos por el momento: 


19 REM guia de telefonos 

248 DIM NOMBRES (1499) 

39 DIM TEL$(100) 

32 PRINT"i. Introd. datos" 

33 PRINT"2. Listado" 

34 PRINT"3. Busqueda" 

35 PRINT"4. Grabar datos” 

3é6 PRINT"S. Cargar datos" 

37 INPUT "Elija una opcion (1-5) ";5el 
38 ON el GOSUB 48,949,139 


39 GOTO 32 
49 FOR x=1 TO 199 
45 CLS 


7 PRINT"Pulse [RETURN] para terminar" 
59 INPUT" Nombre "jNOMBRES (x) 
55 IF NOMBRES$(x)="" THEN 380 
69 INPUT;" Telefono "¡TEL$(x) 


74M NEXT 

89 PRINT "Fin de la entrada de datos" 
85 RETURN 

98 FOR x=1 TO 199 

95 IF NOMBRES (x)="" THEN 129 

19% PRINT NOMBRES(x)5" "¡¿TELB(x) 

118 NEXT 


128 PRINT "Fin de la lista" 
——_ _A —_——_—__ 
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RETURN 
INPUT "Buscar "BUSCAS 


FOR x=1 TO 199 

IF INSTR(NOMBRES(x),BUSCA$)=9 THEN 189 
PRINT NOMBRES(x)53" "¡TELS$(x) 

END 

NEXT 

PRINT"NO0 lo encuentro" 

RETURN 


Observe que en algunas zonas del programa las instrucciones están muy apretadas y 
no dejan hueco para introducir otras nuevas. Reorganicemos el programa renumeran- 
do las líneas. Escriba: 


RENUM 
LIST 


El listado 


19 
28 


es ahora: 


REM guia de telefonos 
DIM NOMBRES+ (199) 
DIM TELS(194) 
PRINT"i. Introd. datos" 
PRINT"2, Listado” 
PRINT"3. Busqueda" 
PRINT"4. Grabar datos” 
PRINT"S. Cargar datos" 
INPUT "Elija una opcion (1-5) "jel 
ON el GOSUB 12,210,279 
GOTO 49 
FOR x=i TO 199 
CcLS 
PRINT"Pulse [RETURN] para terminar" 


15% INPUT;" Nombre "5NOMBRES(x) 
159 IF NOMBRES(x)="" THEN 1948 
1706 INPUT" Telefono "5TEL$(x) 
18% NEXT 

199 PRINT "Fin de la entrada de datos” 
2490 RETURN 

219 FOR x=1 TO 199 

226 IF NOMERES(x)="" THEN 259 
230 PRINT NOMBRES (x)5" "¡TELS$(x) 
2499 NEXT 

256 PRINT "Fin de la lista” 

269 RETURN 
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229 INFUT "Buscar "¡BUSCAS 

288 FOR x=1 TO 199 

298 IF INSTR(INOMBRES(x),BUSCAS)=48 THEN 329 
399 PRINT NOMBRES (x)3" "j¡TELS$(x) 

3186 END 

329 NEXT 

3386 PRINT"No0 lo encuentro" 

399 RETURN 


¡Mucho más limpio! Pero sigamos con el programa. Ahora queremos que cada vez que 
introduzcamos un dato nuevo (nombre y número), el ordenador lo coloque al final de 
la lista actual, en el primer lugar que encuentre vacío. En esta ocasión vamos a utilizar 
la instrucción LEN para determinar la longitud de una cadena literal. Especificaremos 
lo siguiente: 


Si (IF) la longitud de NOMBRES$(x) es mayor que 0, es decir, si ya hay un dato 
en ese elemento de la lista, entonces (THEN) ir a la línea 180 (que provoca el salto 
al siguiente elemento de la lista): 


135 IF LEN(NOMBRES$(x))>8 THEN 186 


Una solución sencilla, ¿verdad? Los problemas de este tipo siempre tienen solución si” 


conocemos bien la lista de instrucciones y nos paramos a pensar un poco. Para casi 
todas las necesidades hay casi siempre al menos una instrucción; cuanto mayor es la 
experiencia en programación, más inmediatas son las soluciones. 


Vamos con otro requisito del programa: grabar los valores de las variables para poder 
cargarlos más tarde. En la parte 7 del “Curso de introducción” hemos explicado cómo 
grabar programas (con la orden SAVE). Pero el programa no es más que la herramien- 
ta que nos permite captar y manipular los datos; cuando grabamos el programa sólo 
estamos guardando la herramienta, no los valores de las variables. 


Así pues, tenemos que escribir una sección del programa que grabe los valores de las 
variables. Para ello crearemos un “fichero de datos”. 


Lo primero es abrir (OPEN) un fichero en dirección de salida (OUT) dándole el nombre 
de “datos”. Después escribiremos (WRITE) los valores de las variables NOMBRES$(x) 
. y TEL$(x), de 1 a 100, en el fichero; finalmente, cerraremos (CLOSE) el fichero y retor- 
naremos (RETURN) al menú. Pondremos esta rutina en las líneas 350 y siguientes. Pa- 
ra no tener que escribir los números de línea, ejecutaremos la orden 


AUTO 359 
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que inicia la numeración automática de las líneas a partir del número 350: 


3598 OPENOUT "datos" 

368 FOR x-1 TO 199 

376 WRITE $2, NOMBRES(x),TEL$(x) 

389 NEXT 

398 CLOSEOUT 

496 PRINT"Fin de la grabacion de los datos" 
410 RETURN 


Cuando haya terminado de teclear la línea 410 y haya pulsado [RETURN], pulse [ESC] 
para interrumpir la función AUTO. 

Como tenemos una rutina más, tendremos que poner otro número de línea en la ins- 
trucción ON el GOSUB de la línea 100. Para ello vamos a corregir (editar, EDIT) la 
línea 100: 


198 ON el GOSUB 129,2190,279,359 


A partir de ahora, cada vez que elijamos la opción 4 del menú, el programa grabará 
el fichero de datos en el disco. 
Observe la línea 370, en la que se escriben los valores de NOMBRES(x) y TEL$LO en 


el disco: la expresión 9 que aparece después de WRITE es un “indicador de canal” que 
especifia a qué canal debe el ordenador enviar los datos. El ordenador maneja 10 


canales: 

Los ocho primeros (+0 a 7) dirigen los datos a la pantalla [bien a la pantalla completa, 
bien a alguna ventana (WINDOW)]. 

El canal $48 es el de la impresora. 


Finalmente, el canal +9 es el que conecta el ordenador con la unidad de disco; éste es 
el que utilizamos en la instrucción 370. j 


Una digresión 


Hagamos un comentario sobre la orden AUTO que acabamos de conocer. Si se escribe 
sencillamente 


AUTO 


el ordendor empieza a numerar líneas a partir del 10 y va incrementando el número 
de 10 en 10 cada vez que se pulsa [RETURN]. Si ya existen líneas 10, 20, 30, etc., su 
contenido aparece en la pantalla según se va pasando por ellas (pulsando [RETU RN) 
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Cuando aparece una línea en la pantalla, se la puede editar antes de pulsar [RETURN]. 
Esto da un método para editar cómodamente líneas cuyos números estén uniforme- 
mente espaciados. 


Volvemos al programa 


Ya hemos escrito las instrucciones que graban los datos en disco. Ahora nos falta ocu- 


parnos de la lectura de los datos para ponerlos a disposición del programa. Como va- ' 


mos a escribir una nueva rutina, tendremos que poner otro número de línea en la ins- 
trucción ON el GOSUB. Editemos la línea 100: 


1996 ON el GOSUE 129,219,2708,359, 429 


Para leer los datos tenemos que empezar por abrir (OPEN) en dirección de entrada (IN) 
el fichero que tenemos en el disco con el nombre de “datos”. Después leemos con IN- 
PUT (por el canal 49) los valores de las variables NOMBRES (x) y TEL$(x), de 1 a 100, 
y finalmente cerramos (CLOSE) el fichero y retornamos (RETURN) al menú. Escriba 
las siguientes líneas: 


428 OPENIN "datos" 

439 FOR x=i1 TO 199 

438 INPUT 49, NOMBRES (x),TEL$(x) 

459 NEXT 

4£9 CLOSEIN 

479 PRINT"Fin de la carga de los datos" 
439 RETURN 


El fin del principio 


Por fin hemos conseguido un programa que realiza todas las funciones previstas. Todo 
lo que nos queda ahora es ocuparnos de cómo presentar los resultados en la pantalla. 


El principio del fin 


Para mejorar el manejo de la pantalla vamos a añadir unas cuantas instrucciones: 


39 MODE 4 
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Esta instrucción establece el modo de pantalla y borra la pantalla al principio del pro- 
grama. Añada ahora lo siguiente: 


36 WINDOW +$1,13,39,19,14 


No se deje impresionar por esta instrucción aparentemente tan complicada. Lo que he- 
mos hecho es definir una ventana en la pantalla para escribir en ella el menú. Después 
de la palabra WINDOW, lo primero que ponemos es el número del canal al que vamos 
a asignarla; recuerde que podemos elegir cualquiera entre el O y el 7. Ahora bien, si 
tenemos en cuenta que todos los textos que enviamos a la pantalla sin especificar núme- 
ro de canal circulan por el 40, no vamos a dar este número a nuestra ventana. Elegi- 
mos, pues, el número 1. Los cuatro números que vienen a continuación especifican el 
tamaño de la ventana. Su significado no podía ser más sencillo: columna del borde iz- 
quierdo, columna del derecho, primera fila y última fila, por este orden. En nuestro 
caso, después de especificar el canal +41, hemos dicho al ordenador que la ventana em- 
pieza en la columna número 13 y termina en la número 30, en horizontal, y que empieza 
en la fila 10 y termina en la 14, en vertical. 


Para dirigir los textos del menú al canal +41 debemos editar las líneas 40 a 80: 
44 PRINT $1,"1. Introd. datos” 
59 PRINT H1,"2. Listado" 
68 PRINT H1,"3. Busqueda” 


79 PRINT H1,"4. Grabar datos" 
26 PRINT $1,"5. Cargar datos” 


Añadamos también 
85 LOCATE 7,28 


para situar el texto de la línea 90. 
Para borrar la pantalla cada vez que el programa retorne al menú, modifiquemos la 
línea 110: 


116 GOTO 349 


Además, para borrar la pantalla cada vez que se selecciona una opción del menú 
añadimos: 


95H CULS 
Finalmente, incluiremos las tres líneas siguientes para hacer que el retorno al menú sea 


controlado por el usuario: 


183 LOCATE 9,28 
105 PRINT *Puise una tecla para volver al menu” 
197 1F INKEYS="" THEN ig? 
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La línea 103 especifica dónde se debe escribir el mensaje de la línea 105. La línea 107 
examina el teclado para averiguar si se ha pulsado alguna tecla. Si no se ha pulsado 
ninguna, INKEY$ genera la cadena vacía y entonces se repite la ejecución de la línea 
hasta que efectivamente se pulse alguna. Ésta es la forma habitual de programar la es- 
pera “hasta que el usuario se decida”, pues BASIC no pasa a la línea siguiente mientras 
no se pulse una tecla. 


Bueno, ya hemos terminado. O quizá no, porque podríamos incluir la posibilidad de 
modificar o borrar nombres y números de teléfono, de ordenarlos alfabéticamente, de 
listarlos por la impresora, etc. Todas estas mejoras son posibles; podríamos seguir me- 


jorando y depurando el programa indefinidamente, pero en algún momento tenemos' 


que poner el punto y aparte, y éste es tan bueno como cualquier otro. Le dejamos, 
pues, con este programa de “guía de teléfonos”, confiando en haberle abierto las puer- 
tas del arte de programar. Adecente el programa con la orden 


- RENUM 


y grábelo en disco; o bórrelo si no le gusta. Quién sabe; quizá pueda necesitarlo algún 
día. 


Listado final: 


19 REM guia de telefonos 

29 DIM NOMBRES (199) 

39 DIM TELS$(199) 

49 MODE 1 

598 WINDOW $1,13,398,10,14 

69 PRINT H$1,"1. Introd. datos" 

249 PRINT $1,"2. Listado” 

89 PRINT $1,"3. Busqueda" 

998 PRINT $4$1,"4. Grabar datos" 

199 PRINT $1,"5. Cargar datos" 

119 LOCATE 7,29 

129 INPUT "Elija una opcion (1-5) "jel 
139 CLS 

149 ON el GOSUB 199,299,359,439,509 
159 LOCATE 9,29 
1698 PRINT"Pulse una tecla para volver al menu” 
179 IF INKEY$="" THEN 179 


189 GOTO 49 
198 FOR x=1 TO 199 
2989 CLS 


218 IF LEN(NOMBRES(x))>9 THEN 269 

229 PRINT"Pulse [RETURN] para terminar" 
239 INPUT;" Nombre "5NOMBRES (x) 

249 IF NOMBRES(x)="" THEN 279 

259 INPUT;" Telefono "¡TEL$(x) 
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269 NEXT 

274% PRINT "Fin de la entrada de datos" 
269 RETURN 

2998 FOR x=1 TO 1499 

369 IF NOMBRES(x)="" THEN 339 

319 PRINT NOMBRES (x)5" "j¡TEL$(x) 

329 NEXT 

3390 PRINT "Fin de la lista” 

3406 RETURN 


359 INPUT "Buscar "¡BUSCAS 

369 FOR x=1 TO 194 

378 IF INSTR (NOMBRES (x), BUSCA$)=9% THEN 499 
380 PRINT NOMBRES (x)5" "¡TEL$(x) 

399 END 

499 NEXT 

3419 PRINT"No0 lo encuentro" 

4289 RETURN 

4398 OPENOUT "datos" 

449 FOR x=1 TO 1949 

458 WRITE $9, NOMBRES (x), TEL$(x) 

469 NEXT 

479 CLOSEOUT 

489 PRINT"Fin de la grabacion de los datos” 
499 RETURN : 

588 OPENIN "datos” 

514 FOR x=1 TO 199 

5248 INPUT $9,NOMBRES$(x),TEL$(x) 

5308 NEXT 

549 CLOSEIN 

559 PRINT"Fin de la carga de los datos" 
568 RETURN 
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Capítulo 3 
Lista completa de las palabras clave del 
BASIC de AMSTRAD 


IMPORTANTE 


Es imprescindible que usted comprenda la terminología y la notación 
utilizadas en este capítulo. Para describir la sintaxis de las diversas ins- 
trucciones utilizamos tanto paréntesis como corchetes. Es necesario dis- 
tinguirlos, pues tienen significados diferentes. 


Toda instrucción, o parte de instrucción, no encerrada entre corchetes debe ser escrita 
tal como aquí se muestra. Por ejemplo, la instrucción END tiene la forma: 


END 


Usted tiene que escribir la palabra END literalmente. 


Cuando un texto está encerrado entre corchetes angulados, por ejemplo 


(nusero de linea) 


no hay que teclear ni los corchetes ni las palabras en ellos incluidas. El texto es una 
indicación del tipo de datos que se debe escribir. Por ejemplo, 
EDIT (numero de linea; 


significa que hay que escribir la palabra EDIT y a continuación un espacio y un número 
de línea: 


EDIT 109 
Los paréntesis ordinarios ( ) son obligatorios y han de ser tecleados explícitamente. Por 


ejemplo, 


COS ( (expresion numerica?) 


exige que se escriban los paréntesis rodeando la expresión numérica cuyo coseno se 
quiera calcular: 


PRINT C0S(45) 
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Finalmente, los corchetes delimitan elementos opcionales. Por ejemplo, 


RUN [(nunero de linea)] 


significa que no es necesario poner un parámetro después de la palabra clave RUN, 
pero que sí se puede incluir ese parámetro; además, en caso de incluirlo, tiene que ser 
necesariamente un número de línea: 


RUN ... 0... RUN 199 


Caracteres especiales 


o «H Prefijo para constante hexadecimal 
EX Prefijo para constante binaria 
$ Prefijo para indicador de canal 


Tipos de datos 


Las cadenas literales pueden contener entre 0 y 255 caracteres. Una (expresión literal) 
es una expresión que toma como valor una cadena literal. Las cadenas literales se pue- 
den concatenar (unir) con el operador +, a condición de que la cadena resultante no 
tenga más de 255 caracteres. 


Los datos numéricos pueden ser enteros o reales. En este sentido, los enteros tienen 
la limitación adicional de estar comprendidos entre —32768 y +32767. El ordenador 
maneja números reales con precisión ligeramente superior a nueve dígitos. Los núme- 
ros reales están comprendidos en el margen +1.7E+38. El menor valor mayor que cero 
es aproximadamente 2.9E--39,. 


Una (expresión numérica) es una expresión que toma como valor un número. Puede 
consistir en números concretos, en una variable numérica o en combinaciones de am- 
bos: cualquier cosa que no sea una (expresión literal)». 


Una (expresión de número de canal) es una (expresión numérica) que identifica una 
ventana de la pantalla, la impresora o la unidad de disco. 


Una (lista de:(elemento) describe un parámetro que está formado por una lista de ele- 
mentos separados por comas. Puede contener uno o varios elementos, sin más limita- 
ción que la longitud de la línea. 


Los indicadores de tipo son: 


% Entero 

! Real (por defecto) 

$ Literal 

AAA A A, A E MA 
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La lista de las palabras clave tiene la siguiente estructura: 


PALABRA CLAVE 
Sintaxis 


Ejemplo 


Descripción 


Palabras clave asociadas 


Las palabras clave pueden ser: 


Órdenes: operaciones que se ejecutan directamente. 
Funciones: operaciones que intervienen como argumentos de una expresión. 
Operadores: operaciones que actuán sobre argumentos matemáticos. 


BASIC convierte todas las palabras clave de minúsculas a mayúsculas cuando se lista 
el programa. En los ejemplos las mostraremos en mayúsculas. Es conveniente que us- 
ted las introduzca en minúsculas, pues entonces le será más fácil detectar los errores, 
dado que las palabras clave erróneamente tecleadas seguirán apareciendo en minúscula 
en los listados. 


En la publicación “Concise BASIC specification SOFT 967” se da una guía exhaustiva 
del BASIC del AMSTRAC CPC6128. 


Lista de palabras clave 


ABS 


ABS ( (expresion numerica) ) 


PRINT ABS(-67.98) 
67.98 


Función. Calcula el valor absoluto de la expresión dada; es decir, convierte los números 
negativos en positivos. 


Palabras clave asociadas: SGN. 


Lista completa de las palabras clave del BASIC de AMSTRAD 3/3 


¡FX 1 


AFTER 


AFTER (retardo del temporizador)[, (numero de tempcrizador)] GOSUB (numero de linea) 


10 AFTER 259 GOSUB 698:CLS 

28 PRINT "Adivine una letra en 5 segundos" 
38 a$=INKEYS:1F indicador=1 THEN END 

49 IF as$<>CHRS$(INT(RANDAZS+97)) THEN 39 

50 PRINT a$:i" es correcto. Usted gana." 

55 SOUND 1,472: SOUND 1,358:END 

59 PRINT "demasiado tarde. Yo gano." 

79 SOUND 1,2969: indicador=1: RETURN 


run 


Orden. Invoca una subrutina de BASIC cuando ha transcurrido el tiempo especificado. 
El parámetro (retardo del temporizador) especifica el tiempo en unidades de 0.02 s 
(cincuentavos de segundo). 


El (número de temporizador)» (margen de 0 a 3) especifica cuál de los cuatro tempori- 
zadores disponibles debe medir el tiempo. El temporizador número 3 tiene la máxima 
prioridad; el O (que es el implícito), la mínima. 


Cada temporizador puede tener una subrutina asociada. 


Para más amplia información sobre las interrupciones, consulte la parte 2 del capítulo 
titulado “Cuando usted guste ...”. 


Palabras clave asociadas: EVERY, REMAIN, RETURN. 


AND 
targunento) AND (argumento) 


IF "juan"<"pepe" AND "perro*)"gato" THEN PRINT "verdadero" ELSE PRINT “$alsp" 
verdadero 

IF "pepe"<*juan" AND "gato”)"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 
talso 

IF "juan*(*pepe” AND "gato")"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 
talso 

PRINT 1 AND 4 

1 
PRINT £ AND $ 

y 
PRINT 1 AND 9 

2 


A A A O A 
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Operador. Realiza la operación lógica “y” bit a bit entre enteros. El resultado es O a 
menos que ambos bits sean 1. : 


Para más amplia información sobre operaciones lógicas, consulte la parte 2 del capítu- 
lo titulado “Cuando usted guste ...? 


Palabras clave asociadas: OR, NOT, XOR. 


ASC 
ASC (“expresion literal) ) 


FRINT ASC("x">) 
120 
Función. Calcula el código ASCII del primer carácter de la (expresión literal). 


Palabras clave asociadas: CHR$. 


ATN 


ATN (Cexpresion nuberica)) 


PRINT ATN(1) 
6. 73853798163 
Función. Calcula el arco cuya tangente es la (expresión numérica). 


Obsérvese que se puede utilizar DEG y RAD para hacer que el resultado se dé en grados 
o en radianes, respectivamente. 


Palabras clave asociadas: COS, DEG, RAD, SIN, TAN. 


AUTO 
AUTO [(ínumero de linea», (incremento?) 
AUTO 189,59 


Orden. Genera números de línea AUTOmáticamente. El parámetro opcional (número 
de línea) especifica en qué número debe empezar la numeración. Si se lo omite, el orde- 
nador genera números de línea a partir del 10. 


El parámetro opcional (incremento) especifica el salto que debe haber entre cada línea 
y la siguiente. Si se lo omite, el ordenador genera números de línea espaciados de 10 
en 10. 
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oa y o 


Si se genera un número de línea que ya ha sido utilizado, el ordenador la muestra en 
la pantalla y entonces se la puede editar, si es necesario. La línea editada sustituye a 
la que está en la memoria en el momento de pulsar [RETURN]. 


Para interrumpir el proceso de numeración automática, pulse [ESC]. 


Palabras clave asociadas: ninguna. 


BINS 


BIN$ ((expresion entera)! , “expresion entera)]) 


PRINT BIN$(64,8) 
91000099 


Función. Produce una cadena de dígitos binarios que representan el valor de la primera 
(expresión entera)», utilizando el número de dígitos binarios especificados por la segun- 
* da (expresión entera) (margen de O a 16). Si el número de dígitos especificado es mayor 
que el necesario, la expresión resultante se completa con ceros por la izquierda; si el 
número de dígitos especificado es demasiado pequeño, la expresión resultante no se 
trunca, sino que contiene todos los dígitos que sean necesarios. 


La (expresión entera) que se va a convertir en binario debe tener un valor comprendi- 
do entre —32768 y +65535. 


Palabras clave asociadas: DEC$, HEX$, STR$. 


BORDER 
BORDER (color), (color)] 


19 REM 729 combinaciones para el borde! 
29 SPEED INK 5,5 

30 FOR a=49 TO 26 

49 FOR b=9 TO 26 

598 BORDER a,b:CLS:LOCATE 19,13 

69 PRINT "border";ja;","3b 

78 FOR t=1 TO 599 

SY NEXT t,b,a 


Orden. Cambia el color del borde de la pantalla. Si se especifican dos colores, el del 
borde alterna entre ambos, a una velocidad que se puede regular con la orden SPEED 
INK. El margen de colores es de 0 a 26. 


Palabras clave asociadas: SPEED INK., 


xPTRQXA A 5 5 
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BREAK 


Véase ON BREAK CONT, ON BREAK GOSUB, ON BREAK STOP. 


CALL 


CALL (expresion de direccion de memoria)[ , (lista des(parametro)] 


CALL Y 


Orden. Permite invocar desde BASIC una rutina escrita en código de máquina. El 
ejemplo anterior provoca la reinicialización de la máquina. 


Esta orden no debe ser utilizada si no se sabe cuáles son sus efectos. 


Palabras clave asociadas: UNT. 


CAT 
CAT 
CAT 


Orden. Da un catálogo del contenido del disco. Presenta en la pantalla, en orden alfa- 
numérico, los nombres completos de todos los ficheros, junto con las respectivas longi- 
tudes (en unidades de Kbytes, redondeadas por exceso). También se muestra el espacio 
libre que queda en el disco, así como las identificaciones de la unidad y del usuario. 


Esta orden no afecta al programa actualmente residente en la memoria. 


Palabras clave asociadas: LOAD, RUN, SAVE. 


CHAIN 
CHAIN (nombre de fichero)[, (expresion de numero de linea)] 
CHAIN "programa.bas",359 


Orden. Lee un programa grabado en disco y lo carga en la memoria reemplazando al 
actual. Inicia la ejecución del nuevo programa, bien desde el principio, bien desde una 
línea especificada por el parámetro opcional (expresión de número de línea). 

Los ficheros protegidos (grabados con SAVE ... ,p) se pueden cargar y ejecutar con 
esta orden. 


Palabras clave asociadas: CHAIN MERGE, LOAD, MERGE. 
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CHAIN MERGE 


CHAIN MERGE (nombre de fichero), (expresion de numero de Jinea)) 
T, DELETE (margen de numeros de linea)) 


CHAIN MERGE "nuevopro.bas",750,DELETE 498-489 


Orden. Lee un programa grabado en el disco, lo carga en la memoria mezclándolo con 
el actual y empieza a ejecutar el programa resultante, bien desde el principio, bien des- 
de una línea especificada por el parámetro opcional (expresión de número de línea». 
Si se desea borrar parte del programa original antes de iniciar la carga del nuevo, se 
puede utilizar la opción DELETE (margen de números de línea)». 


Obsérvese que las líneas del programa que se carga sustituyen a las que tuvieran el mis- 
mo número en el programa original. 


Los ficheros protegidos (grabados con SAVE ... ,p) no se pueden cargar con esta 
orden. 


Palabras clave asociadas: CHAIN, DELETE, LOAD, MERGE. 


CHR$ 
CHR$ ( (expresion entera) ) 


19 FOR x=32 TO 255 
29 PRINT x;3CHR$(x), 
39 NEXT 

run 


Función. Convierte la (expresión entera», que tiene que estar en el margen de 0 a 255, 
en su carácter equivalente. El conjunto de caracteres del AMSTRAD se muestra en la 
parte 3 del capítulo titulado “Para su referencia ...”. 


Obsérvese que los números O a 31 generan caracteres de control; por esa razón los he- 
mos excluido del ejemplo anterior. 


Palabras clave asociadas: ASC. 


CINT 


CINT ((expresion nunerica)) 


19 n=1.9999 

289 PRINT CINT(n) 
run 

2 
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Función. Aproxima el valor de la (expresión numérica» a un número entero compren- 
dido en el margen de —32768 a +32767. 


Palabras clave asociadas: CREAL, FIX, INT, ROUND, UNT. 


CLEAR 
CLEAR 
CLEAR 


Orden. Borra todas las variables (iguala a cero las numéricas y a la cadena vacía las 
literales). Además, se abandonan los ficheros que estén abiertos, se borran todas las 
listas y funciones definidas por el usuario y BASIC retorna al modo de radianes para 
el cálculo de funciones trigonométricas. 


Palabras clave asociadas: ninguna. 


CLEAR INPUT 
CLEAR INPUT 


i%9 CLS 

290 PRINT "Teclee letras ahora!" 
39 FOR t=i TO 39099 

408 NEXT 

506 CLEAR INPUT 

run 


Orden. Desecha todos los caracteres tecleados antes y que todavía estén en el tampón 
del teclado; es decir, borra el tampón del teclado. 


Para observar el efecto de esta orden, ejecute el programa ejemplo y escriba letras 
cuando el ordenador se lo pida. Borre luego la línea 50 y vuelva a ejecutar el programa. 


Palabras clave asociadas: INKEY, INKEYS$, JOY. 


CLG 
CLG [(tintad) 


LOCATE 1,29 
CLG 3 
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Orden. Borra la pantalla gráfica, dejándola del color del papel de gráficos. Si se especi- 
fica la (tinta), el papel de gráficos toma ese color. 


Palabras clave asociadas: CLS, GRAPHICS PAPER, INK, ORIGIN. 


CLOSEIN 
CLOSE IN 
CLOSE IN 


Orden. Cierra el fichero de disco que esté abierto en dirección de entrada (si lo hay). 
(Véase OPENIN.) 


Palabras clave asociadas: EOF, OPENIN. 


CLOSEOUT 
CLOSEOUT 
CLOSEOUT 


Orden. Cierra el fichero de disco que esté abierto en dirección de salida (si lo hay). 
(Véase OPENOUT.) 


Palabras clave asociadas: OPENOUT. 


CES 


CLS [H(expresion de numero de canal?) 


19 PAPER $2,3 
20 CLS $2 
rur 


Orden. Borra la ventana (canal de pantalla) especificada, tiñéndola del color del papel. 
Si no se especifica ninguna (expresión de número de canal), el ordenador borra la pan- 
talla +0. 


Palabras clave asociadas: CLG, INK, PAPER, WINDOW. 
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CONT 
CONT 
CONT 


Orden. Reanuda la ejecución del programa cuando éste ha sido interrumpido, bien por- 
que se ha pulsado la tecla [ESC] dos veces, bien porque el programa ha encontrado 
la instrucción STOP. CONT solamente puede continuar el programa en el supuesto de 
que no se lo haya modificado durante la interrupción y de que no se trate de un progra- 
ma protegido. 


Palabras clave asociadas: STOP. 


COPYCHR$ 


COPYCHRS (Hcexpresión de numero de canal) ) 


19 CLS 

29 PRINT "Extremo superior izquierdo" 
38 LOCATE 1,1 

49 at=COPYCHRS (49) 

598 LOCATE 1,29 

698 PRINT a$ 


Función. Lee el carácter que hay en la posición actual del cursor; la ventana tiene que 
ser especificada. El programa ejemplo lee el carácter que está en la posición 1,1 y lo 
escribe en la posición 1,20. 


Si el carácter no es reconocible, esta función genera la cadena vacía. 


Palabras clave asociadas: LOCATE. 


COS 


COS ( (expresion numerica) ) 


DEG 
PRINT COS(45) 
B.7871906781 
Función. Calcula el coseno de la (expresión numérica). 


Obsérvese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los 
arcos como dados en grados o en radianes, respectivamente. 


Palabras clave asociadas: ATN, DEG, RAD, SIN. 
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CREAL 
CREAL ( (expresion sunerica)) 


129 a=PI 

28 PRINT CINT(a) 
39 PRINT CREAL(a) 
run 

3 

3.14159265 


Función. Convierte el valor de la (expresión numérica), cualquiera que sea su tipo, 
en un número real. 


Palabras clave asociadas: CINT. 


CURSOR 


CURSOR [(conmutador del sistema)! , (conmutador del usuario)) 


19 CURSOR 1 

20 PRINT "pregunta?”; 

390 a$=INKEYS$: IF at="" THEN 34 
49 FRINT as 

59 CURSOR Y 


Orden. El cursor puede ser activado o inhibido por dos conmutadores: el del sistema 
y el del usuario. Esta orden controla los dos conmutadores. Los parámetros pueden 
ser O (inhibido) o 1 (activado). En la instrucción INKEY$ el cursor está normalmente 
oculto, pero en el programa ejemplo ha sido activado por el valor 1 del parámetro 
«conmutador del sistema)» en la línea 10. 


Para que el cursor sea visible tienen que estar a 1 los dos conmutadores. El ordenador 
activa automáticamente el conmutador del sistema para la instrucción INPUT, pero lo 
desactiva para INKEYS. 


Es conveniente ocultar el cursor antes de escribir texto en la pantalla. 


Se puede omitir cualquiera de los parámetros, pero no los dos. Cuando se omite uno 
de los parámetros, la situación del correspondiente conmutador no se modifica. 


Palabras clave asociadas: LOCATE. 


FU o 5 55 5 
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DATA 
DATA (lista des(constante) 


19 FOR x=1 TO 4 
29 READ nombre$,apellidos$ 
39 PRINT "Don "5nombre*+$;" "japellidos 


49 NEXT 
59 DATA Manuel, Gonzalez,Daniel,Garcia 
68 DATA Felipe,Revilla,Ernesto,Diaz 


Orden. Identifica las líneas en las que están contenidos los datos que pueden ser leídos 
con la instrucción READ. Cada vez que se lee un dato, el “puntero” pasa a señalar el 
siguiente elemento de la lista. Se puede utilizar la instrucción RESTORE para hacer que 
el puntero señale una línea de datos determinada. 


En la parte 2 del capítulo titulado “Cuando usted guste .. .* daremos más amplia infor- 
mación sobre los datos de este tipo. 


Palabras clave asociadas: READ, RESTORE. 


DEC$ 
DEC$ ( (expresion numerica), (plantilla de formato) ) 


PRINT DEC$(10E7, "RRHRHRHRHARARH,. HH) 
rr10,000,000.00 


Función. Produce una representación en forma de cadena decimal de la «expresión 
numérica) utilizando la «plantilla de formato» especificada. 


La plantilla de formato sólo puede contener los caracteres siguientes: 
+- A $ $ Gel A 


La utilización de estos “especificadores de formato” se describe en PRINT USING. 
Palabras clave asociadas: BIN$, HEX$, PRINT USING, STRs$. 
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DEF FN 
DEF FNínombre de la funcion)[ (<parametros de forma) ) ]=(expresion) 


19 t=TIME/399 

2989 DEF FNreloj=INT(TIME/399-t) 

30 EVERY 199 GOSUB 59 

49 GOTO 49 

59 PRINT "el programa se ejecuto hace”; 
698 PRINT FNreloj;j"segundos” 

798 RETURN 


Orden. BASIC permite que el programa defina y utilice funciones. DEF FN realiza la 
primera parte de ese mecanismo: crea una función específica del programa; una vez 
definida, la función se maneja de la misma forma que las funciones intrínsecas de BASIC. 


(Nótese en el ejemplo anterior que el valor de la función FNreloj sigue siendo actualiza- 
da ininterrumpidamente, aunque se imponga una pausa al programa pulsando [ESC] 
dos veces para luego reanudarlo con CONT.) 


Palabras clave asociadas: ninguna. 


DEFINT 
DEFINT (lista de:(margen de letras) 


109 DEFINT n 
289 numero=123.456 
30 FRINT numero 
run 

123 


Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un 
indicador explícito de tipo (! Yo $), el ordenador considera que es del tipo implícito. 
Esta orden hace que el tipo implícito sea “variable entera”. La orden afecta a todas las 
variables cuyos nombres empiecen por la letra o letras especificadas. Se puede especifi- 
car una lista: 


DEFINT a,b,c 


o bien un margen de iniciales: 


DEFINT a-z 


Palabras clave asociadas: DEFREAL, DEFSTR. 
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4 


DEFREAL 
DEFREAL (lista de:(margen de letras) 
DEFREAL x,a-+ 
Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un 
indicador explícito de tipo (! Yo $), el ordenador considera que es del tipo implícito. 
Esta orden hace que el tipo implícito sea “variable real”. La orden afecta a todas las 


variables cuyos nombres empiecen por la letra o letras especificadas. Se puede especifi- 
car una lista: 


DEFREAL a,b,c 
o bien un margen de iniciales: 
DEFREAL a-z 


Palabras clave asociadas: DEFINT, DEFSTR. 


DEFSTR 
DEFSTR (Jista des(margen de letras) 


19 DEFSTR nh 

28 nombre="Amstrad" 

36 PRINT nombre 

run 

Amstrad 
Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un 
indicador explícito de tipo (! Yo $), el ordenador considera que es del tipo implícito. 
Esta orden hace que el tipo implícito sea “variable literal”. La orden afecta a todas las 


variables cuyos nombres empiecen por la letra o letras especificadas. Se puede especifi- 
car una lista: 


DEFSTR a,b,te 
o bien un margen de iniciales: 
DEFSTR a-z 


Palabras clave asociadas: DEFINT, DEFREAL. 
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DEG 
DEG 
DEG 
Orden. Hace que BASIC considere que los valores de los arcos que intervienen en los 
cálculos trigonométricos están expresados en grados, no en radianes. La situación im- 
plícita para las funciones SIN, COS, TAN y ATN es la inversa: radianes. DEG cambia 


de radianes a grados; las órdenes RAD, NEW, CLEAR, LOAD, RUN, etc. cambian 
de grados a radianes. 


Palabras clave asociadas: ATN, COS, RAD, SIN, TAN. 


DELETE 
DELETE (uargen de numeros de linea) 
DELETE 199-299 


Orden. Borra la instrucción o grupo de instrucciones especificado por (margen de nú- 
meros de línea). 


Si se omite el primer número de (margen de números de línea), se entiende “desde el 
principio del programa hasta ...?; si se omite el segundo número, se entiende *... has- 
ta el final del programa”. Así, 

DELETE -298 
borra las primeras líneas del programa, hasta la 200 inclusive. En cambio, 

DELETE 54- 
borra desde la línea 50 en adelante. Finalmente, 


DELETE 


borra el programa completo. 
Palabras clave asociadas: CHAIN, MERGE, RENUM. 


a OO UD O O OO DO OO O 
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t 


DERR 
DERR 


LOAD "xyz.abc" 


XYZ «ABC not found 
Ready 
PRINT DERR 

146 


Función. Toma como valor el último código de error detectado por el sistema de archi- 
vo en disco. Se puede utilizar el valor de DERR para determinar qué error se ha produ- 
cido. Véase en el capítulo “Para su referencia ...” la lista de los mensajes de error. 


Palabras clave asociadas: ERL, ERR, ERROR, ON ERROR GOTO, RESUME. 


DI 


DI 


19 CLS:TAG:EVERY 14 GOSUB 99 

29 X1=RND329: X2=RNDXx329 

39 Y=289+RNDX299: CC ó=CHRSI(RNDA255) 
49 FOR X=328-X1 TO 328+X2 STEP 4 


59 DI 
69 MOVE 329,9,1:MOVE X-2,Y:MOVE X,Y 
7989 PRINT " "508; :FRAME 


89 EIINEXT:GOTO 29 
99 MOVE 329,98: DRAW X+8,Y-16,9: RETURN 
run 


Orden. Inhibe interrupciones (a excepción de [ESC]) hasta que se las habilite explícita- 
mente con El o implícitamente con el RETURN en el que termina la subrutina invocada 
como consecuencia de la interrupción. 

Nótese que al entrar en una rutina de interrupción se inhiben automáticamente todas 
las interrupciones de prioridad igual o inferior. 

Esta orden se utiliza para asegurar que el programa funcione sin interrupción; por 
ejemplo, cuando dos rutinas están compitiendo por el uso de recursos comunes. En el 
ejemplo anterior, el programa principal y la subrutina de interrupción están compitien- 
do por el uso de la pantalla gráfica. 

En la parte 2 del capítulo “Cuando usted guste ...” daremos más amplia información 
a este respecto. 


Palabras clave asociadas: AFTER, El, EVERY, REMAIN. 
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DIM 
DIM (lista de:(variable indexada) 


19 CLS 

28 DIM amigo$(5),telefono$(5) 

39 FOR n=1 TOS 

49 PRINT "Amigo numero: ";3n 

59 INPUT "Nombre "jamigos$(n) 

69 INPUT "Telefono ";jtelefono$ (mn) 
79 PRINT 

89 NEXT 

99 FOR n=1 TO 5 

199 PRINT njamigo$(n),telefonot(n) 
119 NEXT 

run 


Orden. DIMensiona listas. DIM hace una reserva de espacio para los elementos de la 
lista y especifica cuál va a ser el máximo valor del índice. BASIC requiere que se le 
informe del tamaño que debe reservar para las listas; sin embargo, permite el manejo 
de listas no dimensionadas (es decir, no declaradas con una orden DIM) a condición 
de que el índice no sobrepase el valor 10. 


Una lista es una “variable indexada”, lo que quiere decir que se utiliza un solo nombre 
de variable para representar varios elementos; cada elemento está identificado por su 
“índice”. Las listas pueden ser controladas fácilmente mediante bucles de tipo FOR ... 
NEXT, identificando el índice con la variable del contador del bucle. 


Obsérvese que el valor mínimo del índice (esto es, el primer elemento utilizable) es el 
cero. 


Un vector es una lista monodimensional. También se pueden utilizar listas multidimen- 
sionales (matrices). Por ejemplo, una lista tridimensional se dimensionaría con 


DIM posicion$(29,28,24) 
y un elemento concreto sería 
posicion+$(4,5,6) 


Palabras clave asociadas: ERASE. 


ESO A A A RNA 
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DRAW 
DRAW (coordenada x), (coordenada y)I, [ítinta)JI, (modo de tinta))) 


168 MODE 9:BORDER 9: PAPER Y: INK 0,0 
29 x=RNDX649: y=RNDX4989: z=RNDX15 

39 DRAW x,y,z 

49 GOTO 24 

run 


Orden. Dibuja en la pantalla gráfica una recta que va desde la posición actual del cur- 
sor gráfico hasta el punto de coordenadas x, y especificadas. Se puede especificar el co- 
lor de (tinta) con el que se desea dibujar la recta (margen: 0 a 15). 


El ¿modo de tinta) es opcional y determina el modo de interacción entre la tinta con 
que se dibuja y la que ya está en la pantalla gráfica. Los cuatro modos son los 
siguientes: 

O Normal 

1 XOR (OR exclusivo) 


2 AND 
3 OR 


Palabras clave asociadas: DRAWR, GRAPHICS PEN, MASK. 


DRAWR (incremento de x), (incremento de y), EítintadII, (nodo de tinta))) 


109 CLS:PRINT "escalera" 

298 MOVE 9,359:FOR n=1 TO 8 
39 DRAWR 59,9 

46 DRAWR Y,-58 

56 NEXT:MOVE 348,9: FILL 3 
648 GOTO 68 

rur 


Orden. Dibuja en la pantalla gráfica una recta que va desde la posición actual del cur- 
sor gráfico hasta el punto especificado en coordenadas relativas por (incremento de 
x) e (incremento de y). Se puede especificar el color de (tinta» con el que se desea 


dibujar (margen: O a 15). 


El ¿modo de tinta) es opcional y determina el modo de interacción entre la tinta con 
que se dibuja y la que ya está en la pantalla gráfica. Los cuatro modos son los 


siguientes: 


A AAA A AAA AAA A AA AA A A 
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0 Normal 

1 XOR (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: DRAW, GRAPHICS PEN, MASK. 


EDIT 
EDIT (nunero de Jinea) 


EDIT 29 


Orden. Escribe en la pantalla la línea especificada por (número de línea) y la deja dis- 
puesta para ser editada, con el cursor sobre ella. 


Palabras clave asociadas: AUTO, LIST. 


El 
El 
El 


Orden. Habilita interrupciones que hayan sido inhibidas previamente con DI. 


Si se inhiben las interrupciones en una subrutina de interrupción, BASIC las habilita 
cuando encuentra el RETURN del final de la subrutina. 


En la parte 2 del capítulo titulado “Cuando usted guste ...? daremos más amplia infor- 
mación acerca de las interrupciones. 


Palabras clave asociadas: AFTER, DI, EVERY, REMAIN. 


ELSE 


(Véase IF.) 


END 
END 


END 
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A AA A 
Orden. Termina la ejecución del programa y devuelve el ordenador al modo directo. 


En un mismo programa se pueden incluir varias Órdenes END; se supone un END im- 
plícito después de la última línea del programa. 


Palabras clave asociadas: STOP. 


ENT 


ENT (nusero de envolvente)E , (seccion de envolventedl , (seccion de envolvente) 
t, (seccion de envolvente) , (seccion de envolvente?) 
[, (seccion de envolvente? 


19 ENT 1,19,-59,19,19,59,19 
20 SOUND 1,599,200,18,,1 
run 


Orden. Define la características de la envolvente de tono especificada por (número de 
envolvente) (margen: de 1 a 15) e invocada como (envolvente de tono) en la orden 
SOUND. Si el ¿número de envolvente) es negativo (margen de — 1 a — 15), la envol- 
vente se repite hasta el final de la (duración) especificada en la orden SOUND. 


Cada (sección de envolvente» puede constar de 2 o 3 parámetros. 


Si se utilizan 3 parámetros, tienen el significado siguiente: 


(nuuero de escalones), (altura de cada escalon), (tiempo de pausa) 


Parámetro 1: (número de escalones > 


Este parámetro especifica en cuántas etapas queremos que la nota evolucione a lo largo 
de la duración de la sección de la envolvente. Por ejemplo, si una sección de la nota 
ha de durar 10 segundos, se la puede dividir en 10 etapas de 1 segundo cada una; en 
tal caso, el parámetro (número de escalones) tendrá que ser 10. 


El margen de este parámetro es de 0 a 239. 


Parámetro 2: (altura de cada escalón) 


En cada etapa, el tono puede variar con respecto al de la anterior en un número de 
unidades comprendido entre —128 y +127. Las variaciones negativas representan 
aumentos del tono (tono más agudo); las variaciones negativas reducen el tono (tono 
más grave). El valor mínimo del período de tono es 0. En el capítulo “Para su refe- 
rencia ...? se da la lista completa de los periodos de tono. 


RS a mx gg 
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ú_——_—_ AAA A A A 
Parámetro 3: (tiempo de pausa)» 


Este parámetro especifica la duración de cada escalón (intervalo entre cada dos saltos) 
en unidades de centésimas de segundo. El margen de valores es de O a 255; esto significa 
que la duración máxima de cada escalón es de 2.56 segundos (el O se considera como 
256). 


Si se utilizan 2 parámetros, su significado es el siguiente: 


(periodo de tono), (tiempo de pausa) 


Parámetro 1: (periodo de tono» 


Este parámetro da un nuevo valor absoluto del periodo de tono. (Véase el parámetro 
2 de la orden SOUND.) 


Parámetro 2: (tiempo de pausa) 


Este parámetro especifica la duración de escalón en unidades de centésimas de segun- 
do. El margen de valores es de O a 255, es decir, el valor máximo es 2.56 segundos, 
ya que el O se considera como 256. 


General 


La suma de todos los «tiempos de pausa)» no debe ser mayor que el parámetro 
(duración) de la orden SOUND); de lo contrario, el sonido habrá concluido antes de 
que se hayan completado todas las etapas de la envolvente. (En tal caso, el ordenador 
ignora el resto del contenido de la envolvente.) 


Análogamente, si la duración especificada en SOUND es mayor que la impuesta por 
la suma de todos los (tiempos de pausa)», la nota continuará sonando aunque se hayan 
terminado los escalones de la envolvente de tono, y lo hará con el tono correspondiente 
al de la última etapa de la envolvente. 


En una orden ENT se puede definir un máximo de 5 (secciones de envolvente) (cada 
una de las cuales puede constar de 2 o 3 parámetros). 


La primera etapa de una envolvente de tono se ejecuta inmediatamente. 
Cada vez que se define una envolvente de tono, se anula la definición anterior. 


Si se define un (número de envolvente) sin especificar parámetros para ninguna de sus 
secciones, se anula la definición anterior. 


En la parte 2 del capítulo “Cuando usted guste ...* daremos más información sobre 
las envolventes de tono. 


Palabras clave asociadas: ENV, SOUND. 


——_ _—_————=—=—= || 
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ENV 


ENV (numero de envolvente)! , (seccion de envolvente)][ , (seccion de envolvente?) 
[, (seccion de envolvente))T , (seccion de envolvente)) 
I, (seccion de envolvente)) 


19 ENV 1,15,-1,19,15,1,19 
29 SOUND 1,299,340,15,1 
run 


Orden. Define las características de la envolvente de volumen especificada por (núme- 
ro de envolvente» (margen: de 1 a 15) e invocada como (envolvente de volumen)» en 


la orden SOUND. 
Cada (sección de envolvente) puede constar de 2 o 3 parámetros. 


Si se utilizan 3 parámetros, tienen el significado siguiente: 


(nunero de escalones), (altura de cada escalon), (tiempo de pausa) 


Parámetro 1: (número de escalones) 


Este parámetro especifica en cuántas etapas queremos que la nota evolucione antes de 
completar la sección de la envolvente. Por ejemplo, si una sección de la nota ha de du- 
rar 10 segundos, se la puede dividir en 10 etapas de 1 segundo cada una; en tal caso, 
el parámetro (número de escalones) será 10. 


El margen de este parámetro es de 0 a 127. 


Parámetro 2: (altura de cada escalón) 


En cada etapa, el volumen puede variar con respecto al nivel anterior en un número 
de unidades comprendido entre 0 y 15. Estos 16 niveles de sonido son los mismos que 
se definen en la instrucción SOUND. Sin embargo, el margen del parámetro (altura 
de cada ecalón) es de — 128 a + 127; el nivel del volumen vuelve O cada vez que sobre- 


pasa el 15. 


Parámetro 3: (tiempo de pausa) 


Este parámetro especifica la duración de cada escalón en unidades de centésimas de se- 
gundo. El margen de valores es de O a 255; esto significa que la duración máxima de 
cada escalón es de 2.56 segundos (el O se considera como 256). 


A A AAA AAA A AAA a _——_—Á 
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Si se utilizan 2 parámetros, su significado es el siguiente: 


(envolvente de harduare), (periodo de envolvente) 


Parámetro 1: (envolvente de hardware» 


Este parámetro especifica el valor que se debe enviar al registro de forma de envolven- 
tes del generador de sonido. 


Parámetro 2: (periodo de envolvente» 
Este parámetro especifica el valor que se debe enviar a los registros de periodo de envol- 
ventes del generador de sonido. 


Para utilizar las envolventes de hardware es necesario que el usuario conozca el funcio- 
namiento interno del generador de sonido. De no ser así, le recomendamos que utilice 
las envolventes definidas por programa, incorporado un (tiempo de pausa) adecuado. 


General 


La suma de todos los (tiempos de pausa) no debe ser mayor que el parámetro 
<duración) de la orden SOUND); de lo contrario, el sonido habrá concluido antes de 
que se hayan completado todas las etapas de la envolvente. (En tal caso, el ordenador 
ignora el resto del contenido de la envolvente.) 


Análogamente, si la duración especificada en SOUND es mayor que la impuesta por 
la suma de todos los (tiempos de pausa) , la nota continuará sonando aunque se hayan 
terminado los escalones de la envolvente de tono, y lo hará con nivel de volumen igual 
al de la última etapa de la envolvente. 


En una orden ENV se puede definir un máximo de 5 (secciones de envolvente)» (cada 
una de las cuales puede constar de 2 o 3 parámetros). 


La primera etapa de una envolvente de volumen se ejecuta inmediatamente. 
Cada vez que se define una envolvente de volumen, se anula la definición anterior. 


Si se define un (número de envolvente) sin especificar parámetros para ninguna de sus 
secciones, se anula la definición anterior. 


En la parte 2 del capítulo “Cuando usted guste ...* daremos más información sobre 
las envolventes de volumen. 


Palabras clave asociadas: ENT, SOUND. 


——_ a———_——_ _ _—___ 
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19 OPENIN "exl.bas" 
29 WHILE NOT EOF 

39 LINE INPUT $9,a% 
49 PRINT at 

59 WEND 

698 CLOSEIN 


Función. Comprueba si se ha alcanzado el final del fichero (End of File). Da el valor 
— 1 (verdadero) si no hay ningún fichero abierto o si se ha alcanzado el final del fiche- 


ro; da O (falso) en caso contrario. 
Palabras clave asociadas: OPENIN, CLOSEIN. 


ERASE 
ERASE (lista de:tnombre de variable) 


DIM a(1990),b$(109) 
ERASE a,b$ 


Orden. Borra el contenido de una o varias listas y libera el espacio de memoria ocupado 
por ellas. 


Palabras clave asociadas: DIM. 


ERL 


ERL 


189 ON ERROR GOTO 39 


28 GOTO 1999 
30 PRINT "Error en la linea";ERL 


49 END 
run 


Función. Da el número de la línea en la que se ha detectado el último error. En el pro- 
grama ejemplo, el error está en la línea 20, y éste es el número generado por ERL en 


la línea 30. 
Palabras clave asociadas: DERR, ERR, ERROR, ON ERROR GOTO, RESUME. 


A A AA AAA A —_—_ _— _ ——— _— 5 
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GOTO 599 

Line does not exist 
Ready 

PRINT ERR 

8 


Función. Da el número del último error detectado. En el capítulo titulado “Para su 
referencia ...” se da la lista de los mensajes de error. El programa ejempo muestra que 
el error número 8 es “Line does not exist” (“no existe esa línea”>). 


Palabras clave asociadas: DERR, ERL, ERROR, ON ERROR GOTO, RESUME. 


ERROR 
ERROR texpresion entera) 


19 IF INKEY$="" THEN 19 ELSE ERROR 17 

run 
Orden. Invoca el error de número especificado por «expresión entera). En el capítulo 
“Para su referencia ...” se da la lista de los mensajes de error 1 a 32. BASIC trata el 
ERROR como si efectivamente lo hubiera detectado: salta a la rutina de gestión de 
errores (si la hay) y genera los valores correctos de ERR y ERL. 


La orden ERROR seguida de una (expresión entera) cuyo valor esté entre 33 y 255 sir- 
ve para crear mensajes de error a medida de las necesidades del programador, como 
ilustra el siguiente ejemplo: 


19 ON ERROR GOTO 199 

29 INPUT "Escriba una letra "¡jas 
39 IF LEN(A$)<>1 THEN ERROR 199 
49 GOTO 29 

199 IF ERR=1998 THEN 119 ELSE 139 
119 PRINT CHR$(7) 

120 PRINT "Le dije que UNA letra!" 
139 RESUME 29 

run 


Palabras clave asociadas: ERL, ERR, ON ERROR GOTO, RESUME. 


——_—_—_— _  _QO__ A -=———=—=+4+4+4+42 
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A A  —— 
EVERY 


EVERY (periodo de tiempodI , (numero de temporizador)] GOSUB (numero de linea) 


19 EVERY 598,1 GOSUB 39 
29 GOTO 29 

39 SOUND 1,29 

496 RETURN 

run 


Orden. Invoca una subrutina de BASIC a intervalos de tiempo regulares. El «periodo 
de tiempo) especifica el intervalo en unidades de 0.02 s (cintuentavos de segundo). 


El (número del temporizador) (margen de 0 a 3) especifica cuál de los cuatro cronóme- 
tros se debe utilizar. El temporizador número 3 tiene la prioridad más alta; el número 


0 (que es el implícito), la más baja. 
Cada uno de los cuatro cronómetros puede tener una subrutina asociada. 


En la parte 2 del capítulo “Cuando usted guste .. .? daremos más amplia información 
acerca de las interrupciones. 


Palabras clave asociadas: AFTER, REMAIN. 


EXP 
EXP ( (expresion numerica) ) 


PRINT EXP (4.876) 
968.743625 


Función. Calcula el número e elevado a la potencia dada por (expresión numérica). 
El número e es la base de los logaritmos neperianos, aproximadamente igual a 


2.7182818. 
Palabras clave asociadas: LOG. 


A 
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FILL 


FILL (tinta) 


19 MODE Y 

20 FOR n=i TO 5909 

39 PRINT"O"; 

40 NEXT 

59 colorpluma=2+RNDX13 
68 FILL colorpluma 

740 GOTO 59 

run 


Orden. Rellena una región de la pantalla gráfica. Los límites de la región son rectas 
dibujadas con la tinta de la pluma de eráficos actual o con la tinta utilizada para relle- 
nar (margen de 0 a 15). 


El rellenado se realiza partiendo de la posición actual del cursor gráfico. Si esta posi- 
ción está en un límite, no se produce rellenado alguno. 


Palabras clave asociadas. GRAPHICS PEN. 


FIX 
FIX ((expresion numerica) ) 


PRINT FIX(9.99999) 
Ed 


Función. Da la parte entera de la (expresión numérica), ignorando su parte decimal. 
Palabras clave asociadas: CINT, INT, ROUND. 


FN 


Véase DEF FN. 


——_—_—_ _ _———— ——  Q_—___ Q__ 
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FOR 


FOR (variable sencilla)=(principio) TO (tim) ISTEP (£salto)] 


19 FOR n=2 TO 8 STEP 2 


29 PRINT n; 

39 NEXT n 

49 PRINT ", y ocho dieciseis” 
run 


Orden. Ejecuta el grupo de instrucciones comprendidas entre FOR y NEXT un número 
dado de veces, incrementando el valor de la variable de control (variable del contador) 
en un número especificado por (salto) desde (principio) hasta (fin). Si no se especifi- 
ca ningún valor de (salto) para STEP, se supone el 1. 


El (salto) puede ser una (expresión numérica). Si su valor es negativo, el parámetro 
(principio) tiene que ser mayor que el parámetro (fin), pues de no ser así la variable 
del contador no será modificada. 


Los bucles FOR ... NEXT pueden ser “anidados”, es decir, programados uno dentro 
de otro. 


No es necesario especificar el nombre de la variable a continuación de NEXT, ya que 
BASIC determina automáticamente a qué FOR corresponde cada NEXT “anónimo”. 


Palabras clave asociadas: NEXT, STEP, TO. 


FRAME 
FRAME 


19 MODE Y 

29 PRINT "sin FRAME" 

39 TAG 

49 MOVE 9,299 

5£ FOR x=9 TO 599 STEP 4 
69 IF +f=1 THEN FRAME 
78 MOVE x, 299 

99 PRINT " "¡CHR$(143)5 
99 NEXT 

199 IF f=1 THEN RUN 
119 CLS 

129 TAGOFF 

139 PRINT "con FRAME" 
149 +=1 

159 GOTO 39 
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Orden. Sincroniza la escritura de caracteres gráficos en la pantalla con el retorno del ' 


haz en el monitor. El efecto global es hacer que el movimiento de símbolos por la pan- 
talla sea más suave, sin parpadeo ni discontinuidad. 


Palabras clave asociadas: TAG, TAGOFF. 


FRE 


FRE ((expresion numerica) ) 
FRE ((expresion literal) ) 


PRINT FRE(9) 
PRINT FRE("") 


Función. Da el espacio libre de memoria utilizable por BASIC. En la forma FRE (“”-”) 
realiza una “limpieza de memoria” antes de dar el número de bytes libres. 


Nota. BASIC solamente utiliza el primer banco de memoria, es decir, los primeros 
64K. 


Palabras clave asociadas: HIMEM, MEMORY. 


GOSUB 
GOSUB (nusero de linea) 
GOSUB 219 
Orden. Invoca una subrutina de BASIC; es decir, reconduce el programa hacia el 
¿número de línea) especificado. El final de la subrutina estará indicado por la orden 


RETURN; cuando se llega a ella, el programa retorna a la instrucción siguiente al 
GOSUB que invocó la subrutina. 


Palabras clave asociadas: RETURN. 


GOTO 
GOTO (numero de linea) 
GOTO 948 


Orden. Hace que la ejecución del programa salte a la línea especificada. 


Palabras clave asociadas: ninguna. 


AAá o Q_—_ __—_——_ 
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A A A 
GRAPHICS PAPER 
GRAPHICS PAPER (tinta 


19 MODE Y 
20 MASK 15 

39 GRAPHICS PAPER 3 
48 DRAW 648,9 

run 


Orden. Especifica la (tinta) del papel de la pantalla de gráficos, es decir, el color de 
fondo sobre el que se dibujan los gráficos. Cuando se dibujan líneas continuas, el papel 
gráfico se hace invisible. En el programa ejemplo, la orden MASK hace que la recta 
que se dibuja sea discontinua y que, por lo tanto, el papel gráfico se pueda ver debajo 


de ella. 

La tinta del papel gráfico (margen de 0 a 15) se utiliza también como fondo de los ca- 
racteres que se escriben mediante TAG y para reteñir la pantalla gráfica cuando no se 
especifica otra tinta tras la instrucción CLG. 


Palabras clave asociadas: CLG, GRAPHICS PEN, INK, MASK, TAG, TAGOFF. 


GRAPHICS PEN 
GRAPHICS PEN [(tintadI, (nodo de fondo) 


19 MODE 9 

29 GRAPHICS PEN 15 
30 MOVE 209,9 

49 DRAW 209,499 
59 MOVE 639,9 

69 FILL 15 

run 


Orden. Especifica la (tinta) con la que en lo sucesivo se van a dibujar rectas y puntos. 
El (modo de fondo» puede ser: 


O Fondo opaco 
1 Fondo transparente 


(El fondo transparente afecta al papel gráfico de los caracteres escritos con TAG y a 
los espacios que quedan entre los trazos de las líneas discontinuas.) 


Se puede omitir cualquiera de los dos parámetros, pero no ambos. Si se omite un pará- 
metro, la característica controlada por él permanece inalterada. 


Palabras clave asociadas: GRAPHICS PAPER, INK, MASK, TAG, TAGOFF. 


zz == ------—<—_ 222 
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A A O 
HEXS$ 


HEXS ( (expresion enterad[, (anchura del campo)]) 


PRINT HEX5$(255,4) 
guFF 


Función. Produce una cadena literal que es la versión hexadecimal de la «expresión 
entera). La longitud de la cadena es la especificada por el parámetro (anchura de 
campo) (margen de 0 a 16). Si la longitud es demasiado pequeña, la cadena resultante 
no se trunca, sino que consta de todos los caracteres necesarios. 


El valor de la (expresión entera) tiene que estar comprendido entre — 32768 y +65535. 
Palabras clave asociadas: BIN$, DECS$, STRS, UNT. 


HIMEM 
HIMEM 


PRINT HIMEM 
42619 


Función. Da la dirección de la posición de memoria más alta accesible a BASIC (la cual 
puede ser modificada con la orden MEMORY). 


Nota. BASIC solamente utiliza el primer banco de memoria, es decir, los primeros 
64K. 


Palabras clave asociadas: FRE, MEMORY, SYMBOL, SYMBOL AFTER. 
IF 
IF (texpresion logica) THEN (opcion) [ELSE £opcion)] 


109 MODE 1 

2% x=CINT(RNDX1900) 

34 PRINT "Adivine mi numero (de Y a 1989)" 

498 INPUT n 

59 IF n<x THEN PRINT n;j"es demasiado bajo ...” 
69 IF n>x THEN PRINT n;"es demasiado alto E ACI 
79 IF n=x THEN 89 ELSE c=c+1:GOTO 49 

84 PRINT "Muy bien. Lo ha conseguido en"; 

99 PRINT c+1;"intentos!" 
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A q A 2 _/ 2 q KXA 


Orden. Determina si la (expresión logica) tiene el valor *verdadero”. Si es así, ejecuta 
la primera (opción). Si la (expresión lógica) tiene el valor “falso”, ejecuta la (opción) 
especificada después de ELSE; si no se ha incluido ELSE, BASIC pasa a la siguiente 
línea del programa. 

Las órdenes IF ... THEN ... se pueden anidar, sin más límite que la longitud de la 
línea. La orden (o la serie de órdenes anidadas) termina en el final de la línea, de modo 
que no es posible poner en la misma línea instrucciones que sean independientes de la 
orden IF ... THEN ..... 


Si la (opción) especificada consiste en un salto de línea, la orden puede tener cualquie- 
ra de las tres formas siguientes: 


IF a=1 THEN 199 
IF a=i GOTO 199 
IF a=1 THEN GOTO 199 


Palabras clave asociadas: ELSE, GOTO, THEN. 


INK 
INK (tinta), (colordI, <color?) 


19 MODE 1:PAPER 9:PEN 1 

29 FOR p=4 TO 1 

39 FOR i=4 TO 26 

49 INK psi 

59 LOCATE 16,12:PRINT "ink"5p5","3i 
68 FOR t=1 TO 499:NEXT t,i,p 

79 INK 9,1: INK 1,29:CLS 


run 


Orden. Asigna uno o dos colores a la (tinta) dada. El parámetro (tinta) es el número 
de referencia de la tinta (margen de 0 a 15), por el que se la cita en las órdenes PEN 
y PAPER. El primer (color) debe ser una expresión entera cuyo valor esté comprendi- 
do entre O y 26. Si se incluye el segundo (color), la tinta alterna entre los dos colores, 
a una velocidad que se controla con la orden SPEED INK. 

Palabras clave asociadas: GRAPHICS PAPER, GRAPHICS PEN, PAPER, PEN, 


SPEED INK. 
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INKEY 
INKEY ( (expresion entera) ) 


19 IF INKEY(55)<>32 THEN 19 

29 PRINT "Ha pulsado [SHIFT1I y Y" 
39 CLEAR INPUT 

run 


Función. Examina el teclado para determinar si se ha pulsado una tecla determinada. 
La exploración se realiza una vez cada 0.02 s. - 


Este función es útil para averiguar si se ha pulsado cierta tecla, comprobando si el nú- 


mero generado por INKEY es — 1 (el cual es independiente de la situación de [SHIFT] 
y [CTRL]). 


El ejemplo anterior detecta cuándo se pulsa V (tecla número 55) con [SHIFT] y sin 
[CTRL]. El esquema de la numeración de las teclas está grabado en la carcasa del orde- 
nador, a la derecha del teclado, e impreso en el capítulo titulado “Para su referencia 


Los valores generados por INKEY en función de la situación de las teclas [SHIFT] y 
[CTRL] son los siguientes: 


Valor generado [SHIFT] [CONTROL] Tecla especificada 
—1 Indiferente Indiferente No pulsada 
0 No pulsada No pulsada Pulsada 
32 Pulsada No pulsada Pulsada 
128 No pulsada  Pulsada Pulsada 
160 Pulsada Pulsada Pulsada 


Palabras clave asociadas: CLEAR INPUT, INKEYS, JOY. 
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INKEYS 
INKEYS 


19 CLS 

29 PRINT "Elija Si o No (S/N):" 
39 ab=INKEYS$ 

49 IF a$="" THEN 39: 

59 IF at$="s" OR a$="S" THEN 89 
69 IF ab="n" OR a$="N" THEN 29 


79 GOTO 39 
39 PRINT "Ha respondido SI":END 


99 PRINT "Ha respondido NO" 


Función. Examina el teclado para determinar si se ha pulsado alguna tecla; de ser así, 
genera una cadena literal consistente en el carácter correspondiente a la tecla pulsada. 
Si no se ha pulsado ninguna tecla, genera la cadena vacía. En el programa ejemplo, 
las líneas 30 y 40 forman un bucle que no deja de repetirse mientras no se pulse una 


tecla. 
Palabras clave asociadas: CLEAR INPUT, INKEY. 


INP 


INP ( (numero de puerta) ) 


PRINT INP (£FF72) 
255 


Función. Da el valor de entrada leído en la dirección de entrada/salida especificada por 
el parámetro (número de puerta). 


Palabras clave asociadas: OUT, WAIT. 


INPUT 


INPUT [HKexpresion de numero de canal), JE; JiCcadena literal entre comillas»separador)] 
¿lista de:(variable) 


19 MODE 1 
29 INPUT "Escriba los dos factores (separados 


por una coma): ",a,b. 
39 PRINT aj"por";5bj"es";jaXb 
49 GOTO 24 
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Orden. Capta una entrada de datos por el canal especificado (Por el +40, si no se especi- 
fica ninguno). 


El primer signo de punto y coma [;] es opcional e inhibe la función de retorno del ca- 


rro/avance de línea que de otra forma se produciría al terminar de ejecutarse la 
instrucción. 


El (separador) tiene que ser una coma o un punto y coma. El punto y coma hace que 
se escriba el signo de interrogación; la coma lo impide. 


Si el dato introducido es de tipo incorrecto (por ejemplo, cuando se escribe la letra O 
en lugar del número 0 en la captación de un dato numérico), BASIC responde con el 
mensaje: 


“Redo from start 


y cualquier otro texto que se haya programado. 


Toda introducción de datos a través del teclado debe terminar con la pulsación de la 
tecla [RETURN]. 


Palabras clave asociadas: LINE INPUT. 


INSTR 
INSTR (Itposicion de partida), Icadena en la que se busca), (cadena buscada) ) 


19 CLS:FOR n=1 TO 26 

29 alfabetos=alfabetos+CHR$(n+64) 
39 NEXT 

99 INPUT "Escriba una letra: ",a$ 
59 be=UPPERS (at) 

69 PRINT b$;" es la letra numero"; 
79 PRINT INSTR (alfabetos, b%); 

29 PRINT "del alfabeto" :PRINT 

984 GOTO 39 

run 


Función. Determina si la (cadena buscada) está contenida en la (cadena en la que se 
busca). Si lo está, da la posición del carácter de la (cadena en la que se busca) en el 
que se ha producido la primera coincidencia. Si no lo está, da el número 0. 


El parámetro opcional (posición de partida) indica en qué lugar de la < cadena en la 


que se busca) debe empezar la búsqueda; debe ser una expresión entera que dé un valor 
comprendido entre 1 y 255, 


Palabras clave asociadas: ninguna. 
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INT 


INT (Cexpresion numerica) ) 


PRINT INT (-1.995) 
-2 


Función. Redondea el valor de la (expresión numérica) al número entero inferior, des- 
preciando la parte decimal. Da el mismo valor que FIX cuando el argumento es positi- 
vo, pero una unidad menos que FIX cuando el argumento es negativo y no entero. 


Palabras clave asociadas: CINT, FIX, ROUND. 


JOY 


JOY ( (expresion entera) ) 


18 PRINT "Para detener el programa “5 
29 PRINT "accione el joystick" 

39 1F JOY(9)<>9 THEN END 

48 GOTO 19 

run 


Función. Lee bit a bit la situación del joystick especificado por la (expresión entera) 
(que debe valer 0 o 1). Genera un valor decimal según la siguiente tabla: : 


Bit Decimal 


Arriba 
Abajo 
Izquierda 
Derecha 
Disparo 2 
Disparo 1 


Uh YN-= O 
NDo0AaNn 


Y mn 


Así, en el programa ejemplo, si el botón principal de disparo (Disparo 2) del primer 
joystick está accionado mientras la empuñadura está inclinada hacia la izquierda, la 
función JOY(0) da el número decimal 20, que es la suma de 16 (Disparo 2) más 4 
(Izquierda). 

En el capítulo “Para su referencia ...? daremos más información acerca de los 
Joysticks. 


Palabras clave asociadas: CLEAR INPUT, INKEY. 
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KEY 


KEY (codigo expansible), (expresion literal) 


KEY 11,"border 13:paper 9:pen 1:ink 0,13: 
ink 1,0:mode 2:list"+CHR$(13) 


y ahora pulse la tecla [INTRO]. 


Orden. Asigna la (expresión literal) al (código expansible) especificado. El sistema 
maneja 32 códigos expansibles, del O al 3t identificados por los códigos de tecla 128 
a 159. Los códigos de tecla del 128 (generado por la tecla O del teclado numérico) al 
140 (generado por la tecla [INTRO] con [CONTROL)]) tienen asignadas implícitamente 
las funciones de escribir los dígitos del O al 9, el punto, [RETURN] y RUN”“[RETURN] 
(para operación con cinta), respectivamente, pero se les pueden asignar otras (expre- 
siones literales) diferentes con KEY. Los códigos expansibles 13 a 31 (códigos de tecla 
141 a 159) tienen asignada implícitamente la cadena vacía, pero se los puede expandir 
con KEY para luego asignarlos a teclas concretas con KEY DEF. 


El parámetro (código expansible) incluido en la orden KEY puede estar en el margen 
de O a 31, o bien en el margen 128 a 159 para reflejar directamente códigos de tecla. 
(Véase la ilustración del capítulo “Para su referencia ...”.) 


Las (expresiones literales) con las que se expandan los códigos expansibles pueden 


ocupar como máximo un total de 120 caracteres. Si se intenta sobrepasar ese límite se 
produce el error “improper argument” (“argumento inadecuado”, error número 5). 


Palabras clave asociadas: KEY DEF. 


KEY DEF 
KEY DEF (nunero de tecla), Crepetir)I, (normaldl , (shift)I, (contro1)11] 


KEY 159,"esta es la tecla TAB" 
KEY DEF é68,1,159 


Después de escribir estas órdenes, pulse la tecla [TAB]. 


Orden. Define los códigos de tecla que van a ser generados por la tecla de número espe- 
cificado. El (número de tecla) tiene que estar en el margen de 0 a 79 (véanse los núme- 
ros de tecla en el diagrama grabado a la derecha del teclado, o bien el esquema del capí- 
tulo “Para su referencia ...”). En la definición se pueden incluir los códigos de tecla 
que deben ser generados por la tecla cuando se la pulsa sola y cuando se la pulsa en 
combinación con I[MAYS] y [CONTROL]. Todos estos parámetros son opcionales. 


El parámetro (repetir) puede tener los valores 1 (para que la tecla sea de repetición) 
0 0 (para que no lo sea). La velocidad de repetición se puede definir con SPEED KEY. 
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En el ejemplo anterior, primero se asigna una cadena literal al código 159 (equivalente 
al código expansible 31), y luego se especifica que la tecla número 68 (la tecla [TAB)) 
debe ser de repetición (1) y generar el código 159 cuando se la pulse sola. 


La situación normal se restaura, en el ejemplo anterior, mediante la orden: 
KEY DEF 68,4,9 


ya que el 9 es el código ASCII normalmente generado por [TAB]. 
Palabras clave asociadas: KEY, SPEED KEY. 


LEFTS 
LEFTS (Cexpresion literal), (longitud deseada) ) 


19 CLS 

29 a$="AMSTRAD" 

34 FOR n=1 TO Y 

49 PRINT LEFTS$(a$,n) 
58 NEXT 

run 


Función. Produce una cadena que consta del número de caracteres dado por (longitud 
deseada) (margen de O a 255) tomados de la izquierda de la (expresión literal). Si la 
longitud de la «expresión literal) es menor que la (longitud deseada), la cadena produ- 
cida es la (expresión literal) completa. 


Palabras clave asociadas: MID$, RIGHTS. 


LEN 
LEN (¿expresion literal)) 


18 LINE INPUT "Escriba una frase: ",a$ 
24 PRINT "La frase tiene"; 

30 PRINT LEN(a$);"caracteres." 

run 


Función. Da la longitud de la (expresión literal), es decir, el número de caracteres de 
que consta ésta. 


Palabras clave asociadas: ninguna. 


A A e 
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e 


LET 
LET (variable)=(expresion) 


LET x=199 


Orden. Asigna un valor a una variable. Es una reliquia de las primeras versiones de 
BASIC, innecesaria en el BASIC de AMSTRAD. En el ejemplo anterior habría basta- 
do con escribir: 


x=109 


Palabras clave asociadas: ninguna. 


LINE INPUT 


LINE INPUT [tHtexpresion de numero de canal), JU; Jiícadena entre comillas)separador)] 
(variable literal) 


19 LINE INPUT "Escriba una linea de texto: ",a$ 
zZg8 CLS 


39 PRINT "La variable a$% es igual al ” 
498 PRINT a+ 
run 


Orden. Acepta la introducción de una línea entera de texto por el canal especificado 
(o por el 40, si no se especifica ninguno). El primer signo de punto y coma [?] es opcio- 
nal y, si se lo incluye, inhibe el retorno del carro/avance de línea que de otra forma 
se realizaría al terminar de ejecutarse la orden. 


El (separador) tiene que ser una coma o un punto y coma. El punto y coma hace que 
se escriba el signo de interrogación; la coma lo impide. 


La captación de datos a través del teclado debe terminar con la pulsación de la tecla 
[RETURN]. 


La captación de datos por el canal 49 (disco o cinta) termina cuando se recibe un carác- 
ter de retorno del carro o cuando se han recibido 255 caracteres (lo que antes ocurra). 


Palabras clave asociadas: INPUT, 


LIST 
LIST [margen de numeros de linea)][ , Hcexpresion de nusero de canal)) 
LIST 190-1009, +41 


€É--_—_— 5 e a 
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Orden. Envía el listado de las líneas especificadas al canal especificado. El canal implí- 
cito es el $0. La impresora es el canal +f8. La acción de listar se puede suspender mo- 
mentáneamente pulsando [ESC] una vez, tras lo cual se la puede reanudar pulsando 
la barra espaciadora o abandonar definitivamente pulsando [ESC] por segunda vez. 


Si se omite el primer número de (margen de números de línea), se entiende “desde el 
principio del programa hasta ...”; si se omite el segundo número, se entiende 
“... hasta el final del programa”. Así, 


LIST -299 


lista las primeras líneas del programa, hasta la 200 inclusive. En cambio, 


LIST 359- 
lista desde la línea 50 en adelante. Finalmente, 
LIST 


lista el programa completo. 


Palabras clave asociadas: ninguna. 


LOAD 
LOAD (nombre de fichero», (expresion de direccion de memoria?) 
LOAD *"fichero.xyz",kZAFS 


Orden. Lee un programa de BASIC grabado en disco y lo carga en la memoria, reem- 
plazando al actual. Si se especifica la (expresión de dirección de memoria) opcional, 
LOAD carga un fichero binario en esa dirección, en lugar de hacerlo en la dirección 
a partir de la cual se lo grabó. 

Los programas de BASIC protegidos no se pueden cargar por este método, pues el or- 
denador los borra inmediatamente de la memoria. Esos programas deben ser cargados 
con RUN o CHAIN. 


Palabras clave asociadas: CHAIN, CHAIN MERGE, MERGE, RUN, SAVE. 
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LOCATE 
LOCATE [éKexpresion de nunero de canal), J(coordenada x), (coordenada y) 


19 MODE 1 

29 FOR n=1 TO 29 

39 LOCATE h,n 

48 PRINT CHR$(143);"posicion"; 
59 PRINT n;3","jn 

69 NEXT 


Orden. Coloca el cursor de texto del canal indicado en la posición especificada por las 
coordenadas x,y. La posición 1,1 es el extremo superior izquierdo de la ventana. El 
canal *0 es el canal implícito. 


Palabras clave asociadas: WINDOW. 


LOG 
LOG ( (expresion numerica) ) 


PRINT L0G(9999) 
9.21924937 


Función. Calcula el logaritmo natural o neperiano de la (expresión numérica)», la cual 
debe ser mayor que cero. 


Palabras clave asociadas: EXP, LOG10. 


LOG10 
LOG19 ((expresion numerica) ) 


PRINT LOG19(9999) 
3.99995657 


Función. Calcula el logaritmo decimal de la (expresión numérica)», la cual debe ser ma- 
yor que cero. : 


Palabras clave asociadas: EXP, LOG. 


5 
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LOWERS$ 
LOWERS$ ( (expresion literal) ) 


19 ab="OBSERVE COMO SE CONVIERTEN LAS LETRAS A " 
29 FPRINT LOWERS (a$+"MINUSCULAS" ) 
run 


Función. Da una cadena literal que es copia de la (expresión literal) especificada, pero 
convirtiendo las letras mayúsculas en minúsculas y dejando inalterados los restantes ca- 
racteres. Esta función es útil en el proceso de datos que puedan contener minúsculas 
mezcladas con mayúsculas. 


Palabras clave asociadas: UPPERS$. 


MASK 
MASK [Kexpresion enterad]J[ , (situacion del primer punto)] 


19 MODE 9: INK 5,21: 1NK 8,16 
29 MOVE -1896%RND, 4IB8XRND 

39 WHILE XPOS:<649 

46 FOR x=1 TO 8 

59 MASK 24 (8-x) 

69 DRAWR 32,9,x,1:MOVER -32,9 
79 NEXT 

59 MOVER 34,9 

26 WEND:GOTO 29 

run 


Orden. Define una “máscara” o plantilla que se puede utilizar en el dibujo de rectas. 
La (expresión entera» (margen de O a 255) determina la situación de los diversos bits 
de cada grupo de 8 pixels adyacentes: O para pixel apagado, 1 para pixel iluminado. 


El parámetro (situación del primer punto» determina si el primer punto de la recta de- 
be ser iluminado (1) o no (0). 


Se puede omitir cualquiera de los dos parámetros, pero no ambos. La situación de la 
característica correspondiente al parámetro omitido permanece inalterada. 


Palabras clave asociadas: DRAW, DRAWR, GRAPHICS PAPER, GRAPHICS PEN. 
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MAX 
MAX ((lista de:(expresion numerica) ) 


10 n=ó6 
29 PRINT MAX(1,n,3,6,4,3) 
run 
66 
Función. Da el valor máximo de los incluidos en la Clista de:(expresión numérica)». 


Palabras clave asociadas: MIN. 


MEMORY 
MEMORY (Cexpresion de dirección de nesoria) 
MEMORY E:29AA 


Orden. Determina el espacio de memoria utilizable por BASIC al fijar la dirección de 
su límite superior. 


Nota. BASIC solamente utiliza el primer banco de memoria, es decir, los primeros 
64K. 


Palabras clave asociadas: FRE, HIMEM, SYMBOL, SYMBOL AFTER. 


MERGE 
MERGE (nombre del fichero) 
MERGE "nuevopro.bas" 
Orden. Lee un programa grabado en disco y lo superpone al actualmente almacenado 


en la memoria. 


Las líneas del programa leído se superponen y sustituyen a las que hubiera en el antiguo 
con el mismo número. 


Los ficheros protegidos (grabados con ,p) no pueden ser mezclados por este procedi- 
miento con el programa actual. 


Palabras clave asociadas: CHAIN, CHAIN MERGE, LOAD. 
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MIDS$ 


MID (Cexpresion literal), (posicion de partida), (longitud de la subcadena)]) 


19 MODE 1:ZONE 3 
29 at="MASSACHUSETTS" 

39 PRINT "Deletreame "jas 
40 PRINT "Vale ...":PRINT 
59 FOR n=1 TO LEN(as$) 

6£ PRINT MID$(a+,n,1), 

789 FOR t=1 TO 799:NEXT t,n 
S9 PRINT:PRINT 

28 INPUT "Ahora escriba usted otra palabra: *,a$ 
199 GOTO 59 

run 


Función. Genera una cadena literal copiada de la «expresión literal). El número de ca- 
racteres copiados es el dado por «longitud de la subcadena)>; la copia empieza en el 
carácter especificado por (posición de partida). Si no se especifica la (longitud de la 
subcadena), se copian todos los caracteres restantes, desde (posición de partida) hacia 
la derecha. 

Si la (posición de partida» es mayor que la longitud de la (expresión literal), se genera 
la cadena vacía. El margen de (posición de partida) es de 1 a 255. El de (longitud de 
la subcadena) es de 0 a 255. 


Palabras clave asociadas: LEFTS$, RIGHTS. 


MIDS 


MIDS ((variable literal), (posicion de inserciondI, (longitud de cadena nueva))) 
=(expresion de cadena nueva) 


19 as$="Amstrad" 

28 MID$(a$,3,2)="XX” 
39 PRINT as$ 

run 

AmXXr ad 


Orden. Reemplaza un número de caractres de la (variable literal), dado por «longitud 
de cadena nueva), con caracteres tomados de (expresión de cadena nueva). La sustitu- 
ción empieza en (posición de inserción). 


Obsérvese que cuando se utiliza MID$ como orden, su argumento debe ser una (varia- 
ble literal); no vale, pues, una cadena literal constante tal como “*hola””. 


Palabras clave asociadas: LEFT$, RIGHTS. 
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MIN 
MIN ( (lista des(expresion numerica?) 


FRINT MIN(3,6,2.999,8,9) 
2.999 


Función. Da el valor mínimo de los incluidos en la (lista de:(expresión numérica). 
Palabras clave asociadas: MAX. 


MOD 
targunento) MOD <argumento) 


PRINT 19 MOD 3 
1 

PRINT 19 MOD 5 
g 


Operador. Da el resto de la división entera del primer (argumento) por el segundo. 


Palabras clave asociadas: ninguna. 


MODE 
MODE (expresion entera) 


19 m=m+1:IF m>2 THEN m=9 

289 MODE m 

39 FRINT"Este es el modo";m 

48 PRINT"Fulse una tecla." 

590 1F INKEY$="" THEN 59 ELSE 19 
run 


Orden. Cambia el modo de pantalla (0, 1 o 2) y la borra tiñéndola con la tinta número 
O (que puede no ser la tinta actualmente asignada al papel). Todas las pantallas de texto 
y gráficas se restauran (coincidentes con la pantalla completa); los cursores de texto 
y gráfico quedan en sus orígenes respectivos. 


Palabras clave asociadas: ORIGIN, WINDOW. 
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MOVE 
MOVE (coordenada x)>, (coordenada y)[, [(tinta)J1, (modo de tinta)J) 


19 MODE 1:TAG 

29 x=RNDXS309-196: y=RNDX439 
38 MOVE x,y 

409 FRINT "Estoy aqui"; 

59 GOTO 28 


Orden. Lleva el cursor gráfico a la posición absoluta especificada por las coordenadas 
x.y. Se puede utilizar el parámetro opcional (tinta) para cambiar la tinta de la pluma 
gráfica (margen 0 a 15). 

El parámetro opcional (modo de tinta)» determina la futura forma de interacción en 
tre la tinta con la que se dibuje y la ya existente en la pantalla. Los cuatro modos 
son: 


O Normal 

1 XOR (OR exclusivo) 
2 AND 

3 OR 


Palabras clave asociadas: MOVER, ORIGIN, XPOS, YPOS. 


MOVER 
MOVER (incresento de x), (incremento de y)[, [£tintadJ[, (modo de tinta)J) 


19 MODE 1:TAG:MOVE 9,16 

29 PRINT "primero se sube"; 

39 FOR n=1 TO 8 

48 MOVER -56,16 

59 PRINT "sube"53:NEXT:¿PRINT " y luego se baja"; 
64% FOR n=1 TO 8 

749 MOVER -56,-16 

390 PRINT "baja”5: NEXT 

run 


Orden. Lleva el cursor gráfico a un punto cuya posición, referida a la actual, viene da- 
da por (incremento de x) e (incremento de y). Se puede utilizar el parámetro opcional 
(tinta) para cambiar la tinta de la pluma gráfica (margen de 0 a 15). 
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El parámetro opcional (modo de tinta) determina la futura forma de interacción entre 
la tínta con la que se dibuje y la ya existente en la pantalla. Los cuatro modos son: 


O Normal 

1 XOR (OR exclusivo) 
2 AND 

3 OR 


Palabras clave asociadas: MOVE, ORIGIN, XPOS, YPOS. 


NEW 
NEW 
NEW 


Orden. Borra el programa de BASIC actualmente residente en la memoria. No se pier- 
den las definiciones de teclas ni se modifican las características de la pantalla (MODE, 
PEN, PAPER, INK, etc.) ni se borra la pantalla. 


Palabras clave asociadas: ninguna. 


NEXT 
NEXT [(lista de:(variable)] 


19 FOR a=1 TO 3 

248 FOR b=94 TO 26 

39 MODE 1 

49 PEN a: BORDER b 

39 PRINT "pen*jaj" border";3b 
68 FOR c=1 TO 599 

78 NEXT c,b,a 


Orden. Señala el final del bucle FOR ... NEXT. La orden NEXT puede ser anónima 
o mencionar el nombre de la variable del FOR correspondiente. Obsérvese en el ejem- 
plo anterior que las variables de la lista deben estar en orden inverso al de sus corres- 
pondientes órdenes FOR, de modo que los bucles no queden solapados, sino anidados. 


Palabras clave asociadas: FOR, STEP, TO. 
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NOT 
NOT (argusento) 


1F NOT "juan"<"pepe” THEN PRINT "verdadero" ELSE PRINT "falso" 


talso 
IF NOT "gato")*perro" THEN PRINT "verdadero" ELSE PRINT *falso" 


verdadero 


PRINT NOT -1 
B 
PRINT NOT 8 
-1 


Operador. Realiza la negación lógica sobre enteros inviertiendo todos los bits del 
argumento. Ñ 

En la parte 2 el capítulo “Cuando usted Usté .? daremos más amplia información 
sobre las operaciones lógicas. 


Palabras clave asociadas: AND, OR, XOR. 


ON BREAK CONT 
ON BREAK CONT 


196 ON BREAK CONT 
20 PRINT "El programa CONTinua aunque usted 
intente interrumpirio con [ESCI":PRINT- 


39 FOR t=1 TO 1999:NEXT:GOTO 28 
run 


Orden. Inhibe la posibilidad de interrumpir el programa pulsando la tecla [ESC], pues 
intercepta la interrupción y continúa la ejecución. Esta orden se debe utilizar con pre- 
caución, ya que el programa no podrá ser detenido más que reinicializando la máquina; 


grabe el programa antes de ejecutarlo. 
Dentro de un programa, esta orden se anula con ON BREAK STOP. 
Palabras clave asociadas: ON BREAK GOSUB, ON BREAK STOP. 
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ON BREAK GOSUB 
ON BREAK GOSUB (nusero de Jinea) 


19 ON BREAK GOSUB 498 

29 PRINT "Programa funcionando" 

39 GOTO 28 

48 CLS:PRINT "Pulsando dos veces [TESC) "; 
59 PRINT"se invoca la subrutina" 

59 FOR t=1 TO 28808: NEXT 

79 RETURN 


Orden. Provoca el salto a la subrutina especificada por (número de línea) cuando se 
pulsa dos veces la tecla [ESC]. 


Palabras clave asociadas: ON BREAK CONT, ON BREAK STOP, RETURN. 


ON BREAK STOP 
ON BREAK STOP (nueero de linea) 


19 ON BREAK GOSUB 49 

248 PRINT "Programa funcionando" 

38 GOTO 29 

48 CLS:PRINT "Pulsando dos veces [ESC] "; 
59 PRINT"se invoca la subrutina" 

é98 FOR t=1 TO 2899890: NEXT 

é5 ON BREAK STGP 

798 RETURN 

run 


Orden. Anula las órdenes ON BREAK CONT y ON BREAK GOSUB, permitiendo así 
que el programa pueda ser interrumpido normalmente con la tecla [ESC]. En el progra- 
ma ejemplo, la orden ON BREAK GOSUB sólo actúa una vez, pues la línea 65 de la 
rutina de interrupción la anula. 


Palabras clave asociadas: ON BREAK CONT, ON BREAK GOSUB. 


0 CO OO DO ÓN 
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ON ERROR GOTO 
ON ERROR GOTO (nunero de linea) 


19 ÓN ERROR GOTO €9 
28 CLS:PRINT "Si detecto un error, 
30 PRINT "listare el programa" 

49 FOR t=1 TO 409049: NEXT 

59 GOTO 199 

68 PRINT "Hay un error en la linea”; 
798 PRINT ERL:PRINT:LIST 


Orden. Provoca el salto a la línea especificada cuando se detecta un error en el 


programa. 


La forma ON ERROR GOTO 0 desactiva la gestión de errores programada por el usua- 


rio y activa la normal de BASIC. 
Véase también la orden RESUME. 


Palabras clave asociadas: DERR, ERL, ERR, ERROR, RESUME. 


ON (expresión) GOSUB 


ON (selector) GOSUB (lista de:(aumero de linea) 


19 PAPER 9:PEN 1: INK 9,1 


29 CLSIPRINT "MENU DE OPCIONES": PRINT 


39 PRINT "1. Cambiar borde":PRINT 
49 PRINT "2. Cambiar pluma" :PRINT 
59 PRINT "3. Cambiar modo": PRINT 
69 INPUT "Elija del 1 al 3: ",x 
79 ON x GOSUB 99,119,139 
89 GOTO 29 
99 b=b-1:1F b<9 THEN b=26 
199 BORDER b:RETURN 
119 p=p-1:IF p<2 THEN p=26 
129 INK 1,p:RETURN 
139 m=m-1:1F m<9 THEN m=2' 
199 MODE m:RETURN 
run 
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Orden. Determina, en función del valor de (selector>, qué subrutina de BASIC debe 
ser invocada. El margen de valores de (selector) es de O a 255. La rutina elegida es 
la que se encuentra en la lista en el lugar indicado por (selector). Así, en el ejemplo 
anterior, si x=1, se invoca la rutina de la línea 90; si x=2, la línea 110; y si x=3, la 
de la línea 130. j 


Si el valor de (selector) es cero o mayor que el número de líneas citadas en la (lista 
de números de línea), no se invoca ninguna subrutina. 


Palabras clave asociadas: RETURN. 


ON (expresión> GOTO 
ON (selector) GOTO (lista de:<numero de linea) 


19 CLS:PRINT "MENU DE QOPCIONES":PRINT 
29 PRINT "1. Listar programa" :PRINT 
34 PRINT "2. Editar y ampliar":PRINT 
49 PRINT "3. Catalogo del disco":PRINT 
59 INPUT "Elija del 1 al 31 ",x 

68 ON x GOTO 89,948,199 

79 GOTO 189 

288 LIST 

94 AUTO 

199 CAT. 

run 


Orden. Determina, en función del valor de (selector), a qué línea del programa debe 
saltar la ejecución. El margen de valores de (selector) es de O a 255. La línea elegida 
es la que se encuentra en la lista en el lugar indicado por (selector). Así, en el ejemplo 
anterior, si x=1 se salta a la línea 80; si x=2, a la línea 90; y si x=3, a la línea 100. 


Si el valor de (selector) es cero o mayor que el número de líneas citadas en la (lista 
de números de línea), no se produce el salto. 


Palabras clave asociadas: RETURN. 


FÉ 
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ON SQ GOSUB 
ON SA ((cana1)) GOSUB (numero de linea) 


16 ENV 1,15,-1,1 
29 ON SQ(1) GOSUB 69 

39 MODE S: ORIGIN 9,9,209,440,190,300 
40 FOR x=1 TO 13:FRAME:MOVE 339,299, x 


59 FILL x:NEXT:GOTO 49 

68 READ s:1F s=9 THEN RESTORE:GOTO 68 
76 SOUND 1,5,25,15,1 

89 ON 5081) GOSUB 68: RETURN 

90 DATA 59,69,99,199,35,200,24,590,9 


run 


Orden. Invoca la subrutina especificada cuando hay espacio libre en la cola de sonidos. 
El parámetro (canal) deber ser una expresión entera que dé uno de los siguientes 
valores: 

1 para el canal A 

2 para el canal B 

4 para el canal C 

En la parte 2 del capítulo “Cuando usted guste ...? daremos más información sobre 
los sonidos. 


Palabras clave asociadas: RETURN, SOUND, SO. 


OPENIN 
OPENIN (nombre de fichero) 


18 REM abrir un fichero del disco para entrada 
29 OPENIN "datos": INPUT H?,a,a 

38 CLOSEIN:PRINT "Los dos valores son 
49 PRINT:PRINT a,as 

run 


Orden. Abre, en dirección de entrada, un fichero grabado en disco para hacerlo accesi- 
ble al programa. El fichero tiene que ser de tipo ASCII. 


El programa anterior sólo funciona si se ha creado previamente el fichero (por ejemplo, 
con el programa siguiente). 


Palabras clave asociadas: CLOSEIN, EOF. 
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O AA 
OPENOUT 


OFENOUT (nombre del fichero) 


19 REM abrir un fichero en el disco para salida 
246 INFUT "Escriba un numero: ”,a 

39 INPUT "Escriba una palabra: "as 

44 OPENQUT "datos" 

50 WRITE $9,a,at 

69 CLOSEOUT:PRINT "Datos grabados en disco" 


Orden. Abre, en dirección de salida, un fichero para su grabación en disco. 


Palabras clave asociadas: CLOSEOUT. 


OR 
(argusento) OR (argumento) 


IF "juan*("pepe" OR "perro")"gato" THEN PRINT "verdadero" ELSE PRINT "falso" 
verdadero 

IF *pepe*(*juan" OR "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 
talso 

IF "juan*("pepe” CR "gato*)"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 
verdadero 


PRINT 1 0R 1 
l 
PRINT 4 OR Y 
Ll 
PRINT-1 0R 8 
1 


Operador. Realiza la operación lógica “o” bit a bit entre enteros. El resultado es 1 a 
menos que ambos bits sean 0. 


Para más amplia información sobre operaciones lógicas, consulte la parte 2 del capítu- 
lo titulado “Cuando usted guste ...”. 


Palabras clave asociadas: AND, NOT, XOR. 


—_ au —Q__ 
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ORIGIN 
ORIGIN (00,91, (izquierda), (derecha), (arriba), (abajo) 


19 MODE 1:BORDER 1i3:TAG 

29 ORIGIN 9,9,199,549,399,190 

36 GRAPHICS PAPER 3:CLG 

49 FOR x=559 TO -349 STEP -19 

50 MOVE x,2906 

68 PRINT "Esta es una ventana grafica "; 
708 FRAME: NEXT:GOTO 49 


Orden. Traslada el origen de gráficos (nuevo punto 0,0) a la posición especificada por 
(x) e (y). 


Al mismo tiempo se pueden especificar las dimensiones de una ventana gráfica dando 
los cuatro últimos parámetros (opcionales). Si estos parámetros definen posiciones ex- 
ternas a la pantalla, el borde de la ventana será el borde de la pantalla. 


Palabras clave asociadas: CLG. 


OUT 
OUT (nuaero de puerta), (expresion entera) 
GUT RFSF4,eFF 


Orden. Envía el valor de (expresión entera) (margen de 0 a 255) a la dirección especifi- 
cada por (número de puerta). 


Esta orden no debe ser utilizada si no se sabe cuáles son sus efectos. 


Palabras clave asociadas: INP, WAIT. 


PAPER 
FAPER [H(expresion de numero de canal), Jítinta) 


19 MODE S9:PEN MS: INK 9,13 ¡ 
29 FOR p=1 TO 15 

39 PAPER p:CLS 

38 LOCATE 7,12:PRINT "paper"5p 
59 FOR t=1 TO 599:NEXT t,p 

run 
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Orden. Establece qué tinta se va a utilizar para escribir el fondo (papel) de los caracte- 
res. Si los caracteres se envían a la pantalla de texto, la celda se rellena con el color 
actual del papel antes de escribir el carácter (a menos que se haya elegido el modo 
transparente). 


Si se omite la (expresión de número de canal) se supone el +0. 
El número de tintas utilizables simultáneamente depende del modo de pantalla. 
Palabras clave asociadas: GRAPHICS PAPER, INK, PEN. 


PEEK 
PEEK (texpresion de direccion de memoria) ) 


19 MODE 1:ZONE 7? 

29 WINDOW 1,49,1,3: WINDOW $1,1,49,4,25 
39 LOCATE 13,1:PRINT"MEMORIA" 

49 PRINT:PRINT"Direccion" 

59 LOCATE 29,3:PRINT"Contenido" 

68 FOR n=9 TO 65535 

78 p=PEEK(n) 

89 PRINT $1,n,"(R"¡HEXS(n)3")"; 

99 PRINT $1,TAB(20)5p,"(R"5HEXS(p)3")" 
199 NEXT 

run 


Función. Da el contenido de la posición de memoria especificada por el argumento, 
el cual debe estar en el margen de $:0000 a 8¿FFFF (0 a 65535). En todos los casos, el 
valor producido será el contenido de la posición de memoria de la RAM (no de la 
ROM) y estará entre 8:00 y 8¿FF (entre O y 255). 


Palabras clave asociadas: POKE. 


PEN 
PEN THCexpresion de numero de canal), Ji(tintadJI, (modo de fondo)) 


19 MODE G:PAPER 9: INK 9,13 

29 FOR p=1 TO 15 

30 PEN p:PRINT SPACE$(47);"pen"5p 
406 FOR t=1 TO 59G48:NEXT t,p:GOTO 28 
run 


Orden. Establece la (tinta) (margen de O a 15) con la que se escribirán los caracteres 
en lo sucesivo en el canal especificado (en el 40 si no se especifica ninguno). El paráme- 
tro (modo de fondo) puede ser 1 (transparente) o 0 (opaco). 

AA ESA 


3/56 Lista completa de las palabras clave del BASIC de AMSTRAD 


e a  —K—<Á 


Se puede omitir cualquiera de los últimos parámetros, pero no ambos. La característica 
correspondiente al parámetro omitido permanece inalterada. 


Palabras clave asociadas: PAPER. 


PI 
PI 


PRINT PI 
3. 14159265 


Función. Da el valor del número r, relación de la longitud al diámetro de la circun- 
ferencia. 


Palabras clave asociadas: DEG, RAD. 


PLOT 


PLOT (coordenada x>, (coordenada yd, [Ctintall, (modo de tinta] 


19 MODE 1:BORDER %S:PAPER S:PEN 1 
20 INK 9,9: INK 1,26: INK 2,13,26:DEG 
39 FOR x=1 TO 369:ORIGIN 320,200 

49 DRAW SY9XCOS(x),5gOXSIM(x), 1 

59 PLOT 198%XC0S(x), 25%SIN(x):NEXT 

69 ORIGIN 6,9:t=TIME+798: WHILE TIME<t 
70 PLOT RNDX649,RNDX490: WEND 

89 PLOT RNDX649,RNDX498, 2 

98 GOTO 99 


Orden. Dibuja un punto en la pantalla gráfica, en la posición absoluta especificada por 
los parámetros (coordenada x) y (coordenada y). También se puede especificar la 
(tinta) con la que se debe dibujar (margen de O a 15). 

El parámetro opcional (modo de tinta) determina la forma de interacción entre la tinta 
con la que se dibuja y la ya presente en la pantalla. Los cuatro modos son: 


0 Normal 
1 XOR (OR exclusivo) 
2 AND : 

3 OR 


Palabras clave asociadas: GRAPHICS PEN, PLOTR. 


sa 
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A 
Y 


PLOTR (incremento de x), (incremento de y), [(tintaJl , (modo de tinta)J] 


19 REM dibujo de rectas con las teclas del cursor 
20 BORDER M:GRAPHICS PEN 1 

34 MODE 1:PLOT 320,299 

49 IF INKEY(9)=4 THEN PLOTR gi 

54 IF INKEY(1)=9 THEN PLOTR 1,9 

68 IF INKEY(2)=9 THEN PLOTR g,-1 

29 1F INKEY(8)=9 THEN PLOTR -1,9 

88 IF INKEY(9)=9 THEN 36: REM copy = borrar 

9% GOTO 40 


Orden. Dibuja un punto en la pantalla gráfica en una posición que, referida a la actual, 
viene dada por los parámetros (incremento de x) e (incremento de y). Se puede utili- 


zar el parámetro opcional (tinta) para cambiar la tinta de la pluma gráfica (margen 
de 0 a 15). 


El parámetro opcional (modo de tinta» determina la futura forma de interacción entre 
la tinta con la que se dibuja y la ya presente en la pantalla. Los cuatro modos son: 


O Normal 

1  XOR (OR exclusivo) 
2 AND 

3 OR 


Palabras clave asociadas: GRAPHICS PEN, PLOT. 


POKE 


POKE (expresion de direccion de mencria), texpresion entera) 


19 FOR m=49152 TO 65535 
29 POKE m, 199 

39 NEXT 

Fun 


Orden. Escribe el valor de la (expresión entera > (margen de 0 a 255) en la memoria 
de la máquina (RAM), en la posición especificada por el parámetro (expresión de di- 
rección de memoria). 


Esta orden no se debe utilizar si no se sabe cuáles son sus efectos. 


Palabras clave asociadas: PEEK. 


——_—_——_—_ o A 
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POS 
FOS (HCexpresion de numero de canal)) 


19 MODE 1:BORDER G:LOCATE 8,2 

29 PRINT "Utilice las teclas de cursor a la 
izquierda y cursor a la derecha” 

30 WINDOW 1,498,12,12:CURSOR 1,1 

4906 FOR n=1 TO 19:PRINT CHR$(9)3 3 NEXT 

Sg IF INKEY (1)<>-1 THEN PRINT CHR$(9)5 

68 IF INKEY(8)<>-1 THEN PRINT CHR$(8);5 

78 LOCATE $1,1,24 

89 PRINT 41,"Posicion horizontal del "; 

99 PRINT $1,"cursor de texto ="; 

1806 PRINT $1,FOS(R9):GOTO 50 

run 


Función. Da la posición horizontal del cursor de texto referida al borde izquierdo de 
la ventana. El parámetro (expresión de número de canal) tiene que ser especificado, 
aunque sea el +0. 

POS(+8) da la posición horizontal de la cabeza impresora, siendo 1 la posición del ex- 
tremo izquierdo. 


POS(+9) da la posición lógica en el canal del disco, esto es, el número de caracteres 
tipográficos enviados al disco después del último retorno del carro. 


Palabras clave asociadas: VPOS, WINDOW. 


PRINT 


PRINT [Hctexpresion de nunero de canal), Jiílista de:Celemento que se escribe)) 


19 a$="corta" 

26 b$="esta cadena es mas larga” 
30 PRINT atjas$ 

46 PRINT a$,a+ 

59 PRINT 

66 PRINT b$;b$ 

78 PRINT b$,b$ 


Orden. Envía los (elementos que se escriben) al canal especificado (o al +0, si no se 
especifica ninguno). 


Cuando se utiliza un signo de punto y coma (;) para separar los elementos de la lista, 
el ordenador escribe cada elemento inmediatamente después del anterior; no obstante, 
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BASIC comprueba si el elemento siguiente cabe en la misma línea y, si no cabe, salta 
a la línea siguiente a pesar del signo de punto y coma. 


Análogamente, la coma (,) especifica que el siguiente elemento se debe escribir en la 
siguiente zona de escritura; no obstante, BASIC comprueba si con el elemento actual 
se ha rebasado la anchura de la zona de escritura y, si es así, escribe el siguiente elemen- 
to en una zona más a la derecha. 


PRINT SPC 
PRINT TAB 


PRINT [Htexpresion de numero de canal), Ji(lista de:(elemento que se escribe>I 3] 
[SPC (Cexpresion entera) ) JiClista de:Celemento que se escribe)] 


PRINT [(Htexpresion de nuuero de canal), JíClista de:(elemento que se escribe)Jl 5] 
[TAB ( (expresion entera) ) llista de:Celenento que se escribe)] 


19 PRINT "Esta es la funcion SPC" 
29 FOR x=6 TO 15 

39 FRINT SPC(15)"a"jSPC(x)"b" 

48 NEXT 

59 PRINT "Esta es la funcion TAB" 
68 FOR x=6 TO 15 

29 FRINT TABE(S)"a"¡TAB(x)"b" 

S2 NEXT 


SPC escribe el número de espacios especificado por la (expresión entera) y luego, in- 
mediatamente a su derecha, el siguiente (elemento) (en el supuesto de que quepa en 
la misma línea). Por consiguiente, no es necesario poner el signo de punto y coma des- 
pués de SPC. 


TAB avanza (escribiendo espacios) hasta la posición especificada por la (expresión 
entera), referida al borde izquierdo de la ventana, y luego, inmediatamente a la dere- 
cha de esa posición, escribe el siguiente (elemento) (en el supuesto de que quepa en 
la misma línea). Por consiguiente, no es necesario poner el signo de punto y coma des- 
pués de TAB. Si la posición actual es mayor que la especificada, primero se realiza un 
retorno de carro y avance de línea y después el avance de los espacios necesarios. 


——_ AA AAA AAA A A A A 
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PRINT USING 


PRINT [iitexpresion de nusero de canal)JíClista de:(elemento que se escribe)J[ 5] 


(USING (plantilla de formato>JI(separador)expresion)) 


19 FOR x=1 TO 19 
29 n=1990999% (RND+5) 
39 PRINT "Precio";USING "HARHRRAR, HR 


49 NEXT 


PRINT USING permite especificar el formato de la expresión escrita con PRINT. Esto 
se consigue especificando una (plantilla de formato) a la que la escritura ha de amol- 
darse. El <separador) es una coma o un punto y coma. La (plantilla de formato) es 
una cadena literal construida con los siguientes “especificadores de formato”: 


Formatos numéricos 


Para el número en sí: 


4 


Cada $ especifica una posición (para un dígito). 
Ejemplo: +48 HH 


Especifica la posición del punto decimal. 

Ejemplo: +HHHRH.4R 

(Especifica una posición.) Sólo puede aparecer antes del punto decimal. Especi- 
fica que los dígitos que queden a la izquierda del punto decimal deben separarse 
mediante comas en grupos de tres. 

Ejemplo: +4 HH,.4R 


Para antes y después del número: 


PP 


xk ok 


**Pi 


$$ 


(Especifica dos posiciones.) Especifica que se debe escribir un signo Pt inme- 
diatamente antes del primer dígito o del punto decimal, después del signo + 
o — (si lo hay). Obsérvese que el signo Pt ocupará una de las posiciones para 
dígitos. Ejemplo: RRR44RRH,.4%H 


(Especifica dos posiciones.) Especifica que los espacios libres a la izquierda de- 
ben ser rellenados con asteriscos. 
Ejemplo: **HHH84R8,.4H4 


(Especifica tres posiciones.) Actúa como las opciones *x* y PiPt combinadas, 
es decir, con asteriscos por la izquierda y el signo Pt. 
Ejemplo: **PitRH+R%R,.$H 


(Especifica dos posiciones.) Especifica que se debe escribir un signo $ inmedia- 
tamente antes del primer dígito o del punto decimal, después del signo + o — 
(si lo hay). Obsérvese que el signo $ ocupará una de las posiciones para dígitos. 
Ejemplo: $54 4R4H4H,.R4HA 


A o KZ 
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**5 (Especifica tres posiciones.) Actúa como las opciones *x* y $$ combinadas, es 
decir, con asteriscos por la izquierda y el signo $. 
Ejemplo: **S 44H HHH 44 


+ Especifica que se debe escribir el signo + o el — (según corresponda). Si se in- 
cluye el signo + al principio de la plantilla, el signo se escribirá inmediatamente 
antes del número (y del signo R o $, si se lo ha especificado). Si se incluye el 
signo + al final de la plantilla, el signo se escribe a la derecha del número (y 
del exponente, si lo hay). 

Ejemplo: +H4HH.44H4H4 


= Esté signo sólo se puede poner al final de la plantilla. Especifica que, si el nú- 
mero es negativo, se debe escribir el signo — a su derecha (y a la derecha del 
exponente, si lo hay). Si el número es positivo, a su derecha se escribe un espa- 
cio. Si no se especifica esto, se escribe automáticamente un signo — a la izquier- 
da de todos los números negativos. 
Ejemplo: 4H HH. H4HRH— 


1111 Especifica que el número se debe escribir en forma exponencial. Los signos 
111? se deben poner a la derecha de las posiciones para dígitos, pero a la iz- 
quierda de los signos + y — (si los hay). 

Ejemplo: HH BRHRIMA1 + 


La (plantilla de formato) para números no puede contener más de 20 caracteres. Los 
números son redondeados antes de escribirlos con los dígitos especificados. 


Si el formato es demasiado pequeño para el número que se ha de escribir, por ejemplo 


PRINT USING "HHHH";12345678 


el número no se trunca, sino que se lo escribe entero, precedido de un signo % para 
indicar el “fallo de formato”. 


Formatos literales 


19 CLS:aé="abcdetghijkimnopg” 


28 PRINT "expresion de entrada = "ja$ 

39 PRINT:PRINT "con especificador ! = "; 

49 PRINT USING "'";jas 

59 PRINT:PRINT "con especiticador Vespaciost = ”; 
68 PRINT USING "y "jas 

28 PRINT:PRINT "con especificador $ = "; 

89 PRINT USING "L£"jas 

98 GOTO 99 

run 
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! Especifica que solamente se debe escribir el primer carácter de la cadena. 
Ejemplo: ! 
WMespacios»X 


Especifica que solamente se deben escribir los x primeros caracteres de la cade- 
na, siendo x la longitud de la plantilla (incluidas las barras inclinadas hacia la 


izquierda). 
Ejemplo: M NX 

él Especifica que se debe escribir la cadena completa sin modificarla. 
Ejemplo: $ 


La (plantilla de formato)» para cadenas literales no puede contener más de 255 
caracteres. 


Las plantillas de formato, tanto si son numéricas como si son literales, pueden ser re- 
presentadas por variables literales; por ejemplo: 


10 at="ARHHAHHA, HH" 

20 b$="!" 

30 PRINT USING a+$;12345.6789 

40 PRINT USING b$;"centimos” 
- PUR 


En la parte 2 del capítulo “Cuando usted guste ...? daremos más información acerca 
de los formatos de impresión. 


Palabras clave relacionadas: SPC, TAB, USING, ZONE. 


RAD 


Orden. Hace que BASIC entienda los argumentos de las funciones trigonométricas en 
radianes. Ésta es la situación implícita que se establece en el momento de encender la 
máquina, cuando se la reinicializa y cuando se ejecutan las órdenes NEW, CLEAR, 


LOAD, RUN, etc. 
Palabras clave asociadas: ATN, COS, DEG, SIN, TAN. 


AA AAA AAA  _ 224424222 
Lista completa de las palabras clave del BASIC de AMSTRAD 3/63 


RANDOMIZE 
RANDOMIZE [(expresion nuerica)) 


RANDOMIZE 123.456 
PRINT RND 
4. 258852139 


Orden. El generador de números aleatorios de BASIC produce una sucesión pseudo- 
aleatoria en la que cada número depende del anterior. La sucesión es siempre la misma. 
RANDOMIZE hace que los números aleatorios se tomen de esa sucesión a partir de 
la posición dada por la (expresión numérica) o, si se omite ésta, por un valor que el 
usuario debe teclear. 


RANDOMIZE TIME produce una sucesión que es muy difícil de repetir. 


Palabras clave asociadas: RND. 


READ 
READ (list de: (variable) 


19 FOR n=1 TO 8 
28 READ a$,c 
39 PRINT as5" ";:SOUND 14,c:NEXT 


49 DATA en,478,todas,426,1las,379%,escalas, 358 
59 DATA musicales,319,hay,284,8,253,notas,239 


Orden. Lee datos de las listas precedidas de DATA y los asigna a variables, actualizan- 
do automáticamente el “puntero” de forma que éste señale el siguiente dato. Se puede 
utilizar la orden RESTORE para hacer que el puntero señale el primer dato de una de- 
terminada lista DATA. 


En la parte 2 del capítulo titulado “Cuando usted guste ...? daremos más amplia infor- 
mación a este respecto. E 


Palabras clave asociadas: DATA, RESTORE. 


KIóIóA<A AAA A AAA A A A A 
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RELEASE 
RELEASE (canales de sonido) 


19 SOUND 65,199,190 

29 PRINT "Pulse R para liberar el sonido" 
39 IF INKEY(59)=-1 THEN 39 

49 RELEASE 1 

RUN 


Orden. Libera los canales de sonido que han sido retenidos en una orden SOUND. 


El parámetro (canales de sonido» tiene que dar un valor entero comprendido entre 1 
y 7. Su significado es el siguiente: 


libera el canal A 

libera el canal B 

libera los canales A y B 
libera el canal C 

libera los canales A y € 
libera los canales B y € 
libera los canales A, B y C 


En la parte 2 del capítulo “Cuando usted guste ...? daremos más amplia información 
acerca de los sonidos. 


Palabras clave asociadas: SOUND. 


ZAO0UNhwN- 


REM 
REM (resto de la linea) 


19 REM Caza a muerte de los invasores del 
hiperespacio intergalactico, por AMSOFT 
29 REM Copyright AMSOFT 1985 


Orden. Precede a las observaciones o anotaciones al programa. Hace que BASIC igno- 
re el resto de la línea, en el cual pueden figurar caracteres cualesquiera, incluso el signo 
de dos puntos (:), que normalmente se utiliza para separar instrucciones. 


En lugar de :REM se puede poner una comilla sencilla (”) en todos los casos salvo en 
las líneas de DATA, en las que el signo * se interpreta como integrante de una cadena 


literal. 


Palabras clave asociadas: ninguna. 
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REMAIN 
REMAIN ((nuzero de temporizador) ) 


19 AFTER 599,1 GOSUB 49 

29 AFTER 190,2 GOSUB 59 

30 PRINT "Programa funcionando":GOTO 39 

49 REM esta subrutina no sera invocada porque 
lo impide la linea €9 

59 PRINT:PRINT "El temporizador 1 va a ser "; 

689 FRINT "inhibido por REMAIN." 

249 PRINT "Unidades de tiempo que quedaban:;"; 

84 PRINT REMAIN (1) 

run 


Función. Da la cuenta restante en el temporizador especificado (margen de 0 a 3) y lo 
desactiva. 


En la parte 2 del capítulo “Cuando usted guste ...” daremos más información acerca 
de las interrupciones. 


Palabras clave asociadas: AFTER, DI, El, EVERY. 


RENUM 


RENUM [C(nuevo numero de lineadJl, Itantiguo numero de linea)J[, (incremento)]] 


19 CLS 

20 REM esta linea sera la 123 
39 REM esta linea sera la 1274 
49 REM esta linea sera la 125 
RENUM 123,29,1 

LIST 


Orden. Renumera las líneas del programa. 


El parámetro (antiguo número de línea) especifica el número de línea actual en el cual 
debe comenzar la renumeración. Si se omite ese parámetro, la renumeración se realiza 
desde el principio del programa. 


El parámetro (nuevo número de línea) especifica qué número se va a dar a la primera 
línea renumerada. Si se omite este parámetro, el programa renumerado empieza en la 
línea 10. 


El parámetro (incremento) especifica el salto que habrá entre cada dos números de 
línea sucesivos. Si se lo omite, el incremento es 10. 
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RENUM modifica correctamente los números de línea citados en las instrucciones 
GOTO, GOSUB y similares. Sin embargo, no se modifican las referencias a números 
de línea que estén contenidas en expresiones literales, tales como las que intervienen 
en las órdenes KEY, ni tampoco las contenidas en líneas REM, ni las (expresiones de 
número de línea» incluidas en CHAIN y CHAIN MERGE. 


Los números de línea válidos son los comprendidos entre 1 y 65535. 


Palabras clave asociadas: DELETE, LIST. 


RESTORE 
RESTORE [(nunero de linea?) 


19 READ s$:PRINT asp" "; 

24 RESTORE 59 

34 FOR t=1 TO 5848: NEXT:GOTO 18 

49 DATA restaure los datos para leerlos una vez 
59 DATA y otra 

run 


Orden. Hace que el “puntero” de datos “apunte” hacia el principio de la línea de DATA 
especificada por el parámetro opcional (número de línea). Si se omite el parámetro, 
el puntero señala la primera línea de DATA del programa. 


En la parte 2 del capítulo “Cuando usted guste ...” daremos más información a este 
respecto. 


Palabras clave asociadas: DATA, READ. 


RESUME 
RESUME [ínunera de linea) 


19 ON ERROR GOTO 6£ 
29 FOR x=19 TO % STEP -1:PRINT 1/x:NEXT 


39 END 
49 PRINT "llegamos hasta aqui despues del error" 


59 END 
68 PRINT "error hnumero"3ERR;3"en la linea"jERL 


79 RESUME 49 
run 


Orden. Reanuda la ejecución normal del programa una vez detectado un error y proce- 
sado por una orden ON ERROR GOTO. Si se omite el (número de línea), el programa 
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O O O O DO DO DO OOO O 


continúa en la misma línea en la que se produjo el error. Suprima el (número de línea) 
en el ejemplo anterior y ejecute nuevamente el programa: 


79 RESUME 
run 


Palabras clave asociadas: DERR, ERL, ERR, ERROR, ON ERROR GOTO, RESUME 
NEXT. 


RESUME NEXT 
RESUME NEXT 


189 ON ERROR GOTO 989 

29 PRINT "Pulse siempre [RETURNJ" 

348 INPUT "1i"ja 

48 INPUT "2"3a 

59 inpot "3"ja REM error de sintaxis 
68 INPUT "4"ja 

78 INPUT "5"5a 

39 END 

29 PRINT "error numero"sERR;"en la linea"sERL 
199 RESUME NEXT 

run 


Orden. Reanuda la ejecución normal del programa una vez detectado un error y proce- 
sado por una orden ON ERROR GOTO. 


RESUME NEXT reanuda la ejecución en la línea siguiente a aquélla en la que se detec- 
tó el error. 


Palabras clave asociadas: DERR, ERL, ERR, ERROR, ON ERROR GOTO, 
RESUME. 


RETURN 
RETURN 


19 GOSUB 59:PRINT "despues del GOSUB":END 
59 FOR n=1 TO 24 

6% PRINT "subrutina" 

79 NEXT:PRINT 

298 RETURN 


E EEE E DO OOOO DO O DO 
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Orden. Señala el final de una subrutina. BASIC retorna de la subrutina a la instrucción 
inmediatamente posterior a aquélla que invocó la subrutina. 


Palabras clave asociadas: GOSUB. 


RIGHTS 
RIGHTS (expresion literal), (longitud deseada) ) 


19 MODE YM:a+$="Ordenador CFCói28" 
29 FOR n=i TO 17:LOCATE 21-n,n 
39 PRINT RIGHTS (até, n) 

49 NEXT 

run 


Función. Produce una cadena que consta del número de caracteres dado por (longitud 
deseada)» (margen de O a 255) tomados de la derecha de la (expresión literal). Si la lon- 
gitud de la (expresión literal) es menor que la (longitud deseada», la cadena producida 
es la (expresión literal) completa. 


Palabras clave asociadas: LEFT$, MID$. 


RND 


RNDI ( (expresion numerica?) ] 


19 RANDOMIZE 

29 FOR x=1 TO -1 STEP -1 

39 PRINT "parametro de rnd ="5x 

49 FOR n=1 TO 6 

56 PRINT RND(X) 

69 NEXT n,x 

run 
Función. Da el siguiente número aleatorio de la sucesión en el caso de que la (expresión 
numérica) tenga valor positivo o no haya sido especificada. 
Si la (expresión numérica) toma valor cero, RND vuelve a dar el anterior número alea- 
torio generado. 
Sila (expresión numérica) toma un valor negativo, se inicia una nueva sucesión aleato- 
ria y RND da su primer número. 


Palabras clave asociadas: RANDOMIZE. 
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ROUND 
ROUND ((expresion nusericad , (decimales)1) 


19 FOR n=4 TO -4 STEP-1 

240 PRINT ROUND(1234.5678,r1), 
39 PRINT "con <¿decimales> ="3h 
48 NEXT 

run 


Función. Redondea la (expresión numérica) a un número de decimales o potencia de 
diez especificada por (decimales). Si (decimales) es menor que cero, se redondea la 
(expresión numérica) para dar un número entero seguido de tantos ceros antes del 
punto decimal como indique el parámetro (decimales). 


Palabras clave asociadas: ABS, CINT, FIX, INT. 


RUN 
RUN (expresion literal) 


RUN "disc" 
Orden. Carga un programa de BASIC o un programa binario que esté grabado en disco 
e inicia su ejecución. Borra el programa anteriormente residente en la memoria. 


Los programas de BASIC protegidos pueden ser ejecutados por este procedimiento. 


Palabras clave asociadas: LOAD. 


RUN 
RUN [(nunero de linea)] 
RUN 2098 


Orden. Inicia la ejecución del programa de BASIC actual a partir de la línea especifica- 
da por (número de línea), o a partir de la primera línea del programa si se omite el 
parámetro. 


Los programas protegidos no' pueden ser ejecutados por este procedimiento. 
Palabras clave asociadas: CONT, END, STOP. 


HA 5 
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SAVE 


SAVE (nombre de fichero», (tipo de fichero)J( , (parametros binarios) 


SAVE "fichero.xyz" 


graba el fichero en modo de BASIC no protegido normal. 
SAVE "fichero.xyz",P 

graba el fichero en modo de BASIC protegido. 
SAVE "fichero.xyz",A 

graba el fichero en modo ASCII. 
SAVE "fichero.xyz",B,8999,3999,38091 


graba el fichero en modo binario. En este ejemplo, graba la zona de memoria del orde- 
nador que empieza en la dirección 8000 y tiene una extensión de 3000 bytes; el punto 
de entrada opcional es 8001. 


Orden. Graba en disco el programa actualmente residente en la memoria. Un fichero 
binario consiste en una zona de memoria copiada en el disco. Los parámetros son en 
este caso: 


(direccion inicial), (longitud del fichero», <punto de entrada)) 


La memoria dedicada a la pantalla se puede grabar en forma de fichero binario. Es 
lo que se denomina “volcado de la pantalla”; la orden necesaria es: 


SAVE "pantalla",B,tC9099, 4909 


El fichero se puede volver a cargar con la orden: 


LOAD "pantalla" 


Palabras clave asociadas: CHAIN, CHAIN MERGE, LOAD, MERGE, RUN. 
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SGN 


SGN ( (expresion numerica) ) 


19 FOR n=2998 TO -2998 STEP-29 

26 PRINT "SGN da"; 

39 PRINT SGN(n);"cuando el numero es"jn 
498 NEXT 

run 


Función. Determina el signo de la (expresión numérica). Da el valor —1 si la <expre- 
sión numérica) es menor que cero; el valor 0 si es igual a 0; y el valor 1 si es mayor 
que cero. 


Palabras clave asociadas: ABS. 


SIN 


SIN ((expresion suserica)) 


189 CLS:DEG: ORIGIN 9,299 

248 FOR n=4 TO 729 

38 y=SIN(m) 

49 PLOT nx*648/7248,198%y: NEXT 
594 GOTO SU 


Función. Calcula el seno de la «expresión numérica). 


Obsérvese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los 
arcos como dados en grados o en radianes, respectivamente. 


Palabras clave asociadas: ATN, COS, RAD, TAN. 


SOUND 


SOUND (situacion dé canales), (periodo de tono», (duracion) , (volumen) 
[, (envolvente de volumen» , (envolvente de tono», (ruido»1111] 


14 FOR z=9 TO 4995 
290 SOUND 1,z,1,12 
34 NEXT 

run 


Orden. Programa la generación de un sonido. Los parámetros son los siguientes: 
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Parámetro 1: (situación de canales > 


El parámetro (situación de canales» debe tener un valor comprendido entre 1 y 255. 
El significado de cada uno de los bits es como sigue: 


Bit O (decimal 1) enviar sonido al canal A (bit menos significativo) 
Bit 1 (decimal 2) enviar sonido al canal B 

Bit 2 (decimal 4) enviar sonido al canal € 

Bit 3 (decimal 8) sincronización con el canal A 

Bit 4 (decimal 16 sincronización con el canal B 

Bit 5 (decimal 32) sincronización con el canal C 

Bit 6 (decimal 64) retención del canal de sonido . 

Bit 7 (decimal 128) borrado del canal de sonido (bit más significativo) 


Por ejemplo, el valor 68 del parámetro (situación de canales) especifica: 


Enviar el sonido al canal C (4) y retenerlo (64). 


Parámetro 2: (periodo de tono» 


Este parámetro define el tono del sonido; es decir, identifica la nota (DO, RE, MI, FA, 
etc.). Cada nota tiene un número de identificación, que es el (periodo de tono». Véase 


, 


el capítulo titulado “Para su referencia ...?. 


Parámetro 3: <duración> 


Este parámetro especifica la duración del sonido. Las unidades son de centésimas de 
segundo (0.01 s). Si no se especifica duración, el ordenador toma el valor implícito para 
este parámetro, que es 20 (un quinto de segundo). 


Si el valor de (duración) es cero, el sonido dura hasta el final de la envolvente de volu- 
men especificada. 


Si el valor de <duración) es negativo, la envolvente de volumen especificada se repite 
ABS((duración)>) veces. 


Parámetro 4: (volumen> 


Este parámetro especifica el volumen inicial de la nota. El margen de valores va de 0 
a 15. El «volumen» 0 es el mínimo; el 15 es el máximo. Si no se especifica volumen», 
el ordenador toma el implícito, que es 12. 


Parámetro 5: (envolvente de volumen> 


Se puede hacer que el volumen de la nota no sea constante, sino que varíe con el tiempo 
mientras la nota está sonando. Para especificar la forma de variación del volumen con 
el tiempo se utiliza la orden ENV. De hecho, se pueden crear hasta 15 envolventes de 
volumen diferentes, con números de referencia del 1 al 15. El parámetro (envolvente 
de volumen) invoca una envolvente de volumen para su utilización por SOUND. 


Véase la descripción de la orden ENV. 
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Parámetro 6: (envolvente de tono)» 


Se puede hacer que el tono de una nota no sea constante, sino que varíe con el tiempo 
mientras la nota está sonando. Para especificar la forma de variación del tono con el 
tiempo se utiliza la orden ENT. De hecho, se pueden crear hasta 15 envolventes de 
tono diferente, con números de referencia del 1 al 15. El parámetro (envolvente de 
tono) invoca una envolvente de tono para su utilización por SOUND. Si en la defini- 
ción de ENT se ha puesto un número negativo como número de envolvente, en la ins- 
trucción SOUND se debe poner el valor absoluto de ese número como (envolvente de 
tono)». 


Véase la descripción de la orden ENT. 


Parámetro 7: «ruido» 


Se puede añadir ruido al sonido: la intensidad del ruido se controla con el parámetro 
(ruido). El margen de valores va de 0 (ruido apagado) hasta 31. 


En la parte 2 del capítulo “Cuando usted guste ...? daremos más amplia información 
sobre los sonidos. 


Palabras clave asociadas: ENT, ENV, ON SO GOSUB, RELEASE, SO. 


SPACES 
SPACES ( (expresion entera) ) 


19 MODE 1 

28 PRINT "Pongamos S espacios entre uno"; 
39 PRINT SPACES(5);5 

49 PRINT "y otro" 

run 


Función. Crea una cadena literal consistente en el número de espacios especificado por 
(expresión entera) (margen de 0 a 255). 


Palabras clave asociadas: SPC, STRINGS$, TAB. 


SPC 


Véase PRINT SPC. 
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SPEED INK 
SPEED INK (periodo 1), (periodo 2 


19 BORDER 7,18 
29 FOR i=34 TO 1 STEP-1 

39 SPEED INK i, i 

49 FOR t=1 TO 7Q8:NEXT t,i 
run 


Orden. Establece la velocidad de alternancia entre los dos colores de tinta especificados 
mediante INK o BORDER. El primer parámetro, «periodo 1), especifica el tiempo pa- 
ra el primer color, en unidades de 0.02 s (cincuentavos de segundo); (periodo 2) especi- 
fica el tiempo para el segundo color. 


Téngase cuidado al elegir colores y velocidades para evitar efectos mesméricos (*hip- 
notizantes”). 


Palabras clave asociadas: BORDER, INK. 


SPEED KEY 
SPEED KEY (demora de arranque), (periodo de repeticion) 


19 CLS:FOR k=7 TO 1 STEP-2 
26 PRINT "Escriba su nombre y pulse [RETURNI]" 
38 SPEED KEY k,k 
49 LINE INPUT as$: NEXT 
59 PRINT "Es un nombre muy interesante” 
- run 


Orden. Establece las características de repetición de las teclas. El parámetro (demora 
de arranque) especifica el tiempo, en unidades e 0.02 s (cincuentavos de segundo) que 
ha de estar pulsada la tecla antes de que empiece a repetirse su acción. El parámetro 
(periodo de repetición) especifica el tiempo que debe transcurrir entre cada dos repeti- 
ciones sucesivas. 


SPEED KEY solamente actúa sobre las teclas que son de repetición implícitamente o 
que han sido definidas como tales mediante KEY DEF. 


Cuando se vaya a utilizar valores muy bajos del parámetro (demora de arranque)», es 
aconsejable definir previamente una de las teclas numéricas para que devuelva el tecla- 
do a la situación implícita, SPEED KEY 30,2. La orden 


KEY 9, "SPEED KEY 39,2"+CHR$(13) 
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restablece los valores implícitos de los parámetros de SPEED KEY en cuanto se pulsa 
la tecla del O del teclado numérico. 


Palabras clave asociadas: KEY DEF. 


SPEED WRITE 
SPEED WRITE (expresion entera) 
SPEED WRITE 1 


Orden. Establece la velocidad de transferencia de datos al magnetófono (si está conec- 
tado). Las velocidades son: 2000 bits por segundo, si (expresión entera) vale 1, y 1000 
bits por segundo si (expresión entera) vale O. Esta última es la velocidad implícita. Pa- 
ra leer una cinta no es necesario saber a qué velocidad ha sido grabada, pues el orden- 
dor selecciona automáticamente la velocidad correcta de lectura. 


La máxima fiabilidad en la transferencia de datos se obtiene con la velocidad mínima, 
que además es la implícita: SPEED WRITE 0. 


Esta orden no ejerce ningún efecto sobre el sistema de grabación en disco. 
Palabras clave asociadas: OPENOUT, SAVE. 


SQ 
SO ((canal)) 


18 SOUND 65,144, 1400 
28 PRINT SQ(1) 

run 

é? 


Función. Genera un número que informa del estado de la cola de sonido del (canal)> 
especificado. El parámetro puede tener uno de los siguientes valores: 


1 para el canal A 
2 para el canal B 
4 para el canal C 


La función SQ produce un número que se interpreta, según sea el valor de sus bits, 
de la forma siguiente: 


Bits 0, 1 y 2: número de huecos libres en la cola 

Bits 3, 4 y 5: estado de sincronización de la primera nota de la cola 
Bit 6 : la primera nota está retenida 

Bit 7 : el canal está activo en la actualidad 


donde el bit O es el menos significativo y el bit 7 el más significativo. 
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Como se puede apreciar, si el bit 6 está a 1, el bit 7 tiene que estar a cero, y viceversa. 
Análogamente, si alguno de los bits 3, 4 y 5 está a 1, los bits 6 y 7 tienen que estar 


a cero. 


En la parte 2 del capítulo “Cuando usted guste ...” daremos más información acerca 
de los sonidos. 


Palabras clave asociadas: ON SQ GOSUB, SOUND. 


SQR 
SOR ( (expresion nunerica)) 


PRINT SOR (9) 
3 


Función. Da el valor de la raíz cuadrada de la (expresión numérica). 


Palabras clave asociadas: ninguna. 


STEP 


Véase FOR. 


STOP 
STOP 


189 FOR n=1 TO 39:PRINT n:NEXT 


20 STOP 
39 FOR n=31 TO 69:PRINT n:NEXT 


run 
cont 


Orden. Detiene la ejecución del programa, pero deja BASIC en un estado tal, que el 
programa puede ser reanudado mediante CONT. STOP se utiliza para establecer pun- 
tos de parada en la depuración de programas. 


Palabras clave asociadas: CONT, END. 
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q AA. mA 
STR$ 
STR ( (expresion numerica) ) 


10 a=kFF ¿REM 255 en hexadecimal 
28 b=kxX1111 ¿REM 15 en binario 


30 Có="XRXA" 
44 PRINT có+STRA(a+b)+có$ 
run 


AX 27D 


Función. Convierte la (expresión numérica) en una cadena literal formada por los mis- 
mos dígitos decimales. 


Palabras clave asociadas: BIN$, DEC$, HEX$, VAL. 


STRING$ 
STRINGS$ ((longitud), Cespecificador del caracter)) 


PRINT STRING$(49,"X") 
RRA 


Función. Da una cadena literal que consiste en el carácter especificado repetido tantas 
veces como indique (longitud) (margen de 0 a 255). Nótese que en el ejemplo anterior 
se podría haber puesto también: 


PRINT STRING$ (49,42) 
AO 


donde el (especificador del carácter), el número 42, es el código ASCII del asterisco. 
Palabras clave asociadas: SPACES. 


SWAP 


Véase WINDOW SWAP. 


0 CO DO 
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SYMBOL 
SYMBOL (numero del caracter), (lista de:(fila) 


19 MODE 1:SYMBOL AFTER 195 

298 filai=255:REM 11111111 en binario 

39 fila2=122:REM 19999991 en binario 

49 fila3=189:REM 19111191 en binario 

59 fila4=-153:REM 10911001 en binario 

69 fila5=153:REM 19911991 en binario 

79 +filaó=189:REM 19111191 en binario 

89 fila7?=120:REM 1090060981 en binario 

9 +fila8=255:REM 11111111 en binario 

109 PRINT "La linea 119 redefine la letra i (195). 
Teclee varias veces esa letra y luego liste 
el programa.” 

119 SYMBOL 195,filai,fila2,fila3,fila4,filaS, 
filaé,fila?,filaS 

run 


Orden. Redefine la forma de un carácter. El margen para todos los parámetros es de 
0 a 255. 


Con objeto de reservar espacio en la memoria del ordenador para la descripción del 
carácter, es necesario ejecutar previamente la orden: 


SYMBOL AFTER x 


donde x debe ser igual o menor que el número del carácter que se va a definir. 


A continuación se emite la orden SYMBOL seguida, en primer lugar, por el número 
del carácter. 


El carácter puede ser directamente accesible por el teclado; en cualquier caso se lo pue- 
de escribir mediante la orden 


PRINT CHR%$(x) 


Después de SYMBOL x viene una sucesión de hasta 8 parámetros, cada uno de los cua- 
les describe una fila de la matriz del carácter. El margen de estos parámetros es de 0 
a 255. La representación binaria de cada parámetro indica la situación de “encendido” 
o “apagado” de cada uno de los puntos de la fila correspondiente. 


Por ejemplo, si el primero de los ochos parámetros vale 1, la fila superior del carácter 
tiene la representación binaria 00000001. Cada 1 indica que el correspondiente punto 
del carácter se ilumina con el color de PEN; cada 0 indica que el correspondiente punto 
no será visible, pues se lo escribe con el color de PAPER. Así pues, la primera fila de 
este carácter consiste en un punto en el extremo superior derecho. Los siguientes pará- 
metros son 3,7,15,31,63,0,0. La representación binaria de los ocho parámetros es como 
sigue: 
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parámetro (fila) 1: 00000001 en binario ( 1 en decimal) 
parámetro (fila) 2: 00000011 en binario ( 3 en decimal) 
parámetro (fila) 3: 00000111 en binario ( 7 en decimal) 
parámetro (fila) 4: 00001111 en binario (15 en decimal) 
parámetro (fila) 5: 00011111 en binario (31 en decimal) 
parámetro (fila) 6: 00111111 en binario (63 en decimal) 
parámetro (fila) 7: 00000000 en binario ( 0 en decimal) 
parámetro (fila) 8: 00000000 en binario ( 0 en decimal) 


Observando el conjunto de las representaciones binarias podemos hacernos una idea 
del aspecto que tendrá el carácter. Asignemos estos parámetros al carácter número 255 
mediante la orden: 


SYMBOL 255,1,3,7,15,31,63,9,9 
Al ser O los dos últimos, podemos omitirlos: 
SYMBOL 255,1,3,7,15,31,63 


Los parámetros se pueden introducir en forma binaria, con lo que se ahorra el trabajo 
de convertirlos previamente a la forma decimal. (Recuérdese que el prefijo para núme- 
ros binarios es £X.) Por ejemplo: 


SYMBOL 255, k:x90098801,«XggIgDOB11,RXDOBOD111, 
t*xXB0991111,e:x909911111,8X90111111 


Finalmente, para ver el resultado de la definición, ejecute la orden 


PRINT CHRS$ (255) 


Si se redefine uno de los caracteres accesibles por el teclado, el nuevo carácter aparecerá 
en la pantalla cada vez que se pulse la tecla correspondiente o se lo escriba con PRINT 
CHR3( ). Por otra parte, BASIC reconoce la forma del nuevo carácter cuando trata 
de leerlo en la pantalla, y no lo rechaza por incomprensible. 


En la parte 2 del capítulo “Cuando usted guste ...” daremos más información sobre 
la redefinición de caracteres. 


Palabras clave asociadas: COPYCHR$, HIMEM, MEMORY, SYMBOL AFTER. 


x-_EOOoOXS—_ o 5 1 5 5 5 5 5 5 
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SYMBOL AFTER 
SYMBOL AFTER (expresion entera) 


19 CLS 

248 SYMEOL AFTER 115 

39 PRINT "La linea 44 redefine la letra s "; 
499 SYMBOL 115,9,56,64,64,48,8,8,112 

59 PRINT "a s" 

£8 PRINT "Cancele esta definicion de s” 

79 PRINT "tecleando SYMBOL AFTER 2498" 


Orden. Establece el número de caracteres redefinibles por el usuario (en el margen de 
0 a 256). El número implícito es 240, lo que deja 16 caracteres (del 240 al 255) definibles 
por el usuario. Si (expresión entera) es 32, todos los caracteres, del 32 al 255, son defi- 
nibles. SYMBOL AFTER 256 impide la redefinición de caracteres. 


Cada vez que se ejecuta una orden SYMBOL AFTER, quedan anuladas todas las rede- 
finiciones y la forma de todos los caracteres vuelve a ser la implícita. 


La orden SYMBOL AFTER no se puede ejecutar después de modificar el valor de HI- 
MEM, lo cual puede ocurrir como resultado de una orden MEMORY, o bien al abrir 
un tampón para la grabación o lectura de un fichero con OPENOUT u OPENIN. En 
tales circunstancias se provoca el mensaje “Improper argument' (“argumento inade- 
cuado”, error número 5), a menos que la situación anterior fuera SYMBOL AFTER 


256. 


En la parte 2 del capítulo “Cuando usted guste ...? daremos más información sobre 
la redefinición de caracteres. 


Palabras clave asociadas: HIMEM, MEMORY, SYMBOL. 


TAB 


Véase PRINT TAB. 


TAG 
TAG I[tHKexpresion de numero de canal)] 


19 INPUT "Escriba su nombre: ",ab:CLS 
29 PRINT "Se mueve usted mucho, "5a+ 
34 TAG 

496 x=LEN(at$)Xx17: y=58+RNDX3090: MOVE -x, y 
59 FOR $=-x TO 699 STEP RNDX?+3 
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64 MOVE +, yIPRINT " "5a$j: FRAME: NEXT 
79 FOR b=649 TO -x STEF-RNDX+3 

89 MOVE b,y:PRINT a$;" ";¡:FRAME:NEXT 
29 GOTO 44 

run 


Orden. Hace que el texto enviado al canal especificado sea escrito en la pantalla gráfi- 
ca, en la posición actual del cursor. De esta forma se puede mezclar texto con gráficos, 
o mover los caracteres pixel a pixel. Si se omite la (expresión de número de canal», 
se supone el +0, 


El punto superior izquierdo del carácter se conecta al cursor gráfico. Si se omite el sig- 
no de punto y coma al final de la instrucción PRINT, los códigos de retorno del carro 
y de avance de línea se visualizan como caracteres gráficos. 


Si se ha aplicado TAG al canal 40, BASIC desactiva TAG al volver a modo directo. 
Palabras clave asociadas: TAGOFF. 


TAGOFF 
TAGOFF IHCexpresion de numero de canal)] 


19 MODE 2:TAG :REM texto ligado al cursor grafico 
29 periodo=1984: FOR x=i1 TO 6498 STEP 78 

34 MOVE x,999: DRAWR 9,-359 

44 periodo=periodo+i:PRINT periodo; : NEXT 

59 TAGOFF :REM texto desconectado de cursor grafico 
698 LOCATE 34,25:PRINT "Datos anuales" 

79 GOTO 79 

run 


Orden. Cancela la orden TAG para el canal especificado (o para el +40, si no se especifi- 


ca otro) y redirige el texto a la posición que tenía el cursor de texto antes de ejecutarse 
TAG. 


Palabras clave asociadas: TAG. 


TAN 
TAN ( (expresion suserica)) 


PRINT TAN(45) 
1.61977519 


Función. Calcula la tangente de la (expresión numérica), que debe tener un valor com- 
prendido entre —20000 y +20000. 
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Obsérvese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los 
arcos como dados en grados o en radianes, respectivamente. 


Palabras clave asociadas: ATN, COS, DEG, RAD, SIN. 


TEST 
TEST ( (coordenada x>, (coordenada y?) 


19 CLS 

29 PRINT "Estamos utilizando la pluma numero"; 
39 PRINT TEST(19,386) 

49 PRINT "Cambie la pluma y el modo ”; 
59 PRINT "... y ejecute otra vez el programa." 
run 


Función. Traslada el cursor gráfico al punto de coordenadas absolutas especificadas 
e informa del valor de la tinta presente en esa posición. 


Palabras clave asociadas: MOVE, MOVER, TESTR, XPOS, YPOS. 


TESTR 
TESTR ( (incremento de x>, (incremento de y?) 


18 MODE S:FOR x=1 TO 1S:LOCATE 1,x 
29 PEN x:PRINT STRING$(19,143)3: NEXT 
30 MOVE 248,499:PEN 1 

49 FOR n=1 TO 23:LOCATE 12,n 

SO FRINT "pen"; TESTR(9, -16): NEXT 

run 


Función. Lleva el cursor gráfico a un punto cuya posición, referida a la posición actual, 
viene dada por los parámetros (incremento de x) e (incremento de y), e informa del 
valor de la tinta presente en ese punto. 


Palabras clave asociadas: MOVE, MOVER, TEST, XPOS, YPOS. 
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THEN 


Véase IF. 


19 CLS:REM reloj 

29 INFUT "Hora: ",hora 

39 INPUT "Minuto: *",minuto 

49 INFUT "Segundo: ",segundo 

59 CLS:referencia=INT(TIME/399) 

68 WHILE hora<13 

79 WHILE minuto<ó69 

S9 WHILE tiempo<ós 

ds] tiempo=(INT(TIME/390) -referencia)+segundo 
1069 LOCATE 1,1 : E 

119 PRINT USING "$$ "shora,sminuto,tiempo 
128 WEND 

139 tiempo=9:segundo=9:minuto=minuto+1 
149 GOTO 59 

159 WEND 

159 minuto=4f: hora=hora+li 

1706 WEND 

1990 hora=1 

198 GOTO 698 


Función. Da el tiempo transcurrido desde el momento en que se encendió o reinicializó 
la máquina por última vez (excluyendo el dedicado a escribir o leer en el disco), en uni- 
dades de 1/300 s. Expresado en segundos, el tiempo es, pues, TIME/300. 


Palabras clave asociadas: AFTER, EVERY, WEND, WHILE. 


TO 


Véase FOR. 


A y o OO O O CO O DO OO O ÓN 
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19 TROFF:PRINT:PRINT "TROFF" 

206 FOR n=1 TO 8 

306 PRINT "Frograma funcionando”: NEXT 
48 IF +=1 THEN END 

58 TRONIPRINT:FRINT "TRON" 

68 f=1:GOTO 28 

Pur 


Orden. Sigue la “traza” del programa escribiendo los números de cada línea antes de 
ejecutarla. Los números de línea aparecen entre corchetes [1 


TRON activa este modo; TROFF lo desactiva. 


TRON es particularmente útil para estudiar la secuencia de números de línea anterior 
al momento en que se produce un error. 


Palabras clave asociadas: ninguna. 


UNT 
UNT (Cexpresion de direccion de memoria) ) 


PRINT UNT (RFFé6) 
-154 


Orden. Da un entero, comprendido entre —32768 y +32767, que es el equivalente en 
“complemento a dos” al valor de (expresión de dirección de memoria). 


Palabras clave asociadas: CINT, FIX, INT, ROUND. 


UPPERS$ 


UPPERS ((expresion literal?) 


18 CLS:a$="mire como crecen!" 
26 PRINT UPFER$(a$) 
run 


Función. Da una cadena literal que es copia de la (expresión literal) especificada, pero 
convirtiendo las letras minúsculas en mayúsculas y dejando inalterados los restantes ca- 


o e ¿5 === AA 
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racteres. Esta función es útil en el proceso de datos que puedan contener minúsculas 
mezcladas con mayúsculas. 


Palabras clave asociadas: LOWERS$. 


USING 


Véase PRINT USING. 


VAL 
VAL ((expresion literal)) 


189 CLS:PRINT "Ya he aprendido la tabla de multiplicar" 
28 PRINT:PRINT "Pulse una tecla del 1 al 9:" 

39 as=INKEYS: IF a$="" THEN 30 

49 n=VAL (lat): 1F n<1 OR n>9 THEN 39 

59 FOR x=1 TO 19 

$68 PRINT n3"x"jx3"="ynXkx 

78 NEXTIGOTO 26 

FuUR 


Función. Da el valor numérico (incluyendo el signo y el punto decimal) de los primeros 
caracteres de la (expresión literal) que sean dígitos. 


Si el primer carácter no es un dígito, el valor generado es 0. Si el primer carácter es 
el signo menos o el punto decimal y va seguido de caracteres no numéricos, se provoca 
el mensaje “Type mismatch' (“incongruencia de tipos”, error número 13). 


Palabras clave asociadas: STR$. 


VPOS 
VPGOS (Hiexpresion de nunero de canal) ) 


16 MODE 1:BORDER G:LOCATE 8,2 

29 PRINT "Utilice las teclas subir/bajar cursor" 
34 WINDOW 39,39,1,25:CURSOR 1,1 

489 LOCATE 1,13 

59 IF -INKEY (6)<>-1 THEN PRINT CHR$(11);5 
68 IF INKEY(2)<>-1 THEN PRINT CHR$(19)5 
78 LOCATE H1,1,23 

289 PRINT +$1,"Posicion vertical del” 

943 PRINT $1,"cursor de texto ="; 

1089 PRINT H41,VPOS(48):GOTO SO 

run 


O AAA 
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AAA A AAA AAA A 
Función. Da la posición vertical del cursor de texto, referida al extremo superior de 
la ventana. Es necesario especificar la (expresión de número de canal), pues el ordena- 


dor no da por supuesto el +0. 


WAIT 


WAIT (nunero de puerta), (mascara), (inversion)) 


WAIT £FF34,29,25 


Orden. Espera hasta que por la puerta de entrada/salida especificada por (número de 
puerta) se reciba un determinado valor. BASIC lee incesantemente la puerta. Con el 
valor recibido y el parámetro (inversión) se realiza la operación lógica XOR; con este 
resultado y el parámetro (máscara) se realiza la operación lógica AND; el proceso se 
repite hasta que el resultado final sea distinto de cero. 


BASIC espera indefinidamente hasta que se cumple la condición requerida. 
Esta orden no debe ser utilizada por quien no sepa cuáles son sus efectos. 


Palabras clave asociadas: INP, OUT. 


WEND 
WEND 


WEND 


Orden. Señala el final del grupo de instrucciones cuya ejecución se repite en un bucle 
del tipo WHILE. BASIC determina automáticamente a qué WHILE corresponde cada 


WEND. 
Palabras clave asociadas: TIME, WHILE. 


WHILE 


WHILE (expresion logica) 


19 CLS:PRINT "Temporizador de 19 segundos”: t=TIME 
29 WHILE TIME<t+3090 


349 SOUND 1,4,199,15 
40 WEND:SOUND 127,49,39,15 
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——_————— ——— _ _— _—_ — oa _ ___ _ === 


Orden. Repite la ejecución de un grupo de instrucciones mientras se cumpla cierta con- 
dición. La orden WHILE señala el principio del bucle y especifica la condición lógica 
mediante la (expresión lógica). 


Palabras clave asociadas: TIME, WEND. 


WIDTH 
WIDTH (expresion entera) 


WIDTH 49 


Orden. Informa a BASIC de cuántos caractes por línea se deben enviar a la impresora. 
BASIC envía a la impresora los códigos de retorno del carro y avance de línea en el 
momento adecuado. 


El valor implícito es 132. 


La orden WIDTH 255 suprime los códigos de retorno del carro y avance de linea, de- 
jando que el número de caracteres por línea sea totalmente controlado por la impreso- 
ra. En todo caso, la orden PRINT envía a la impresora esos dos códigos siempre que 
no se incluya el signo de punto y coma al final. 


Palabras clave asociadas: POS. 


WINDOW 


WINDOW [Htexpresion de numero de canal), Mizquierda), (derecha), (arriba), (abajo) 


10 MODE 9:BORDER G:REM carta de ajuste 
298 INK 9,9: INK 1,25: INK 2, 231 INK 3,21 
39 INK 9,17: INK 5,6: INK 6,2: INK 7,26 
498 PAPER 8:CLS : 

3590 PAPER 1:WINDOW 2,4,1,18:CLS 

692 PAPER 2:WINDOW 5,7,1,18:CLS 

78 PAPER 3:WINDOW 8,19,1,18:CLS 

89 PAPER 4: WINDOW 11,13,1,18:CLS 

99% PAPER S: WINDOW 14,16,1,18:CLS 

194 PAFER 464: WINDOW 17,192,1,18:CLS 

119 PAPER 7:WINDOW 2,119,19,25:CLS 

129 GOTO 129 

run 


Orden. Especifica las dimensiones y situación de una ventana de texto. Los valores de 
los parámetros (izquierda), (derecha), (arriba) y (abajo) indican los números extre- 
mos de columna y de fila, y deben ser consistentes con el modo de pantalla actual. 
xA>—AA<KA<«<AAAA<>>—áA>A2>+4 A A AAA 
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Si no se especifica la (expresión de número de canal), BASIC supone el +0. 


En la parte 2 del capítulo titulado “Cuando usted guste ...” daremos más información 
sobre ventanas de texto. 


Palabras clave asociadas: WINDOW SWAP. 


WINDOW SWAP 
WINDOW SWAP (expresion de numero de canal), (expresion de numero de canal) 


19 MODE 1: INK 1,24: 1INK 2,9: INK 3,6 
20 WINDOW 21,44,13,25:PAPER 3 

39 WINDOW $1,1,29,1,12:FPAPER $1,2 
49 CLS:PRINT ” Ventana numero Y" 

59 CLS H1I:FRINT $1," Ventana numero 1" 
68 LOCATE 1,6 

74 PRINT " Ventana roja (89)";SPC(2) 
S9 LOCATE Hi,1l,é6 

26 PRINT $1," Ventana verde (1)" 
140 FOR t=i TO 1998: NEXT 

119 WINDOW SWAP $,1:GOTO €S 

ruh 


Orden. Intercambia las características de las dos ventanas de texto especificadas por 
las (expresiones de número de canal). 


Se deben especificar los dos números de canal, pero en este caso no deben ir precedidos 
del signo +. 


En la parte 2 del capítulo titulado “Cuando usted guste ...” daremos más información 
sobre ventanas de texto. 


Palabras clave asociadas: WINDOW. 


WRITE 
WRITE [HCexpresion de nunero de canal), Ji(lista de datos)] 


19 REM escribir variables en disco 

289 INPUT "Escriba un humero;: ",a 

39 INPUT “Escriba una palabra: ",as$ 

49 OPENOUT "datos" 

59 WRITE $9,a,as$ 

69 CLOSEOUT:PRINT "Datos grabados en disco" 
run 
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Orden. Envía los valores de los elementos de la (lista de datos) al canal especificado 
por la (expresión de número de canal). Los elementos irán separados por comas; las 
cadenas literales irán entre comillas. 


En el ejemplo anterior, los valores captados por el teclado son enviados al canal 49 
(disco). 


Para leer esos valores después de grabarlos en disco, se necesita un programa tal como 
el siguiente: 


19 REM leer variables del disco 

29 OPENIN "datos": INFUT $9,a,as 

309 CLOSEIN:PRINT "Los dos valores son:" 
99 PRINT:PRINT a,as$ 

run 


Palabras clave asociadas: INPUT, LINE INPUT. 


XOR 
targusento) XOR (argumento) 


IF "juan"<"pepe” XOR *perro")*"gato" THEN PRINT "verdadero" ELSE PRINT *falso" 
falso 

IF "pepe*t"juan" XOR "gato")*perro' THEN PRINT "verdadero" ELSE PRINT “falso” 
+also 

IF "juan"¿"pepe" XOR "gato")"perro" THEN PRINT "verdadero* ELSE PRINT *$a1s0" 
verdadero 

PRINT 1 XOR 1 

3 
PRINT $ XOR Y 

y 
PRINT 1 XCR Y 

1 


Operador. Realiza la operación lógica “o exclusivo? bit a bit entre enteros. El resultado 
es 1 a menos que ambos bits tengan el mismo valor. 


Para más amplia información sobre operaciones lógicas, consulte la parte 2 del capítu- 
lo titulado “Cuando usted guste ...?. 


Palabras clave asociadas: AND, OR, NOT. 


x$x_ErEOÓxXRÑÁEÉÓÉCcOR—— 5 5 5 5 5 5 5 5 5 
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XPOS 
xPOS 


109 MODE 1:DRAW 329,299 

29 PRINT "Posicion horizontal del cursor grafico ="; 
39 PRINT XPOS 

run 


Función. Da el valor de la posición horizontal (coordenada x) del cursor gráfico. 


Palabras clave asociadas: MOVE, MOVER, ORIGIN, YPOS. 


YPOS 
YPOS 
19 MODE 1:DRAW 329,299 
26 PRINT "Posicion vertical del cursor grafico ="5 
39 PRINT YPOS ; 
run 


Función. Da el valor de la posición vertical (coordenada y) del cursor gráfico. 


Palabras clave asociadas: MOVE, MOVER, ORIGIN, XPOS. 


ZONE 
ZONE (expresion entera) 


19 CLS:FOR z=2 TO 29 


28 ZONE z 
39 PRINT "X","X ZONE ="3z:NEXT 


run 


Orden. Cambia la anchura de la zona de escritura (especificada en las instrucciones 
PRINT cuando se utiliza una coma para separar elementos). La achura implícita es 13 
columnas, pero se la puede cambiar al valor dado por la (expresión entera), cuyo mar- 
gen es de l a 255. 


Palabras clave asociadas: PRINT., 
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Capítulo 4 
Discos y cintas 


Parte 1: Discos 


Discos de trabajo 


En esta sección vamos a explicar cómo preparar discos para el trabajo 
diario y a presentar algunas funciones de CP/M y sus programas de 
ayuda. 


Temas tratados: 


* Copia de los discos maestros. 

* Introducción a CP/M Plus. 

* Utilización de los ficheros HELP. 

* Utilización de una y dos unidades de disco. 

* Copia de ficheros con PIP. 

* Trabajo con discos para BASIC (sin CP/M). 

* Instalación de aplicaciones “llave en mano” en BASIC de 
AMSTRAD. 

* Instalación de aplicaciones “llave en mano”? en CP/M Plus. 

* Introducción al GSX. 

* Trabajo con CP/M 2.2. 


En la parte 7 del “Curso de introducción? hemos explicado cómo inicializar un disco 
virgen para utilizarlo tanto con BASIC como con CP/M. 


En la parte 10 del “Curso de introducción” vimos cómo copiar discos con el programa 
DISCKIT3 (cara 1 del juego de discos del sistema). 


En esta sección vamos a abordar la preparación de discos con los programas deseados. 


Copia de los discos maestros 


Es muy importante hacer una copia de los discos maestros del sistema y de ayudas que 
se suministran con el ordenador y guardar en lugar seguro los originales, pues sería 
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muy costoso sustituirlos si resultaran dañados. Recuerde que cada disco tiene dos ca- 
ras, por lo que en los discos maestros hay en total cuatro caras: 


La cara 1 es la más importante; contiene el sistema operativo CP/M Plus y un conjunto 
de programas de ayuda para el manejo de discos. 


La cara 2 contiene una serie de ficheros para programación en ensamblador. 


La cara 3 contiene Dr. LOGO, diversos ficheros “HELP” y el sistema GSX (que descri- 
biremos más adelante). 


La cara 4 contiene el CP/M 2.2 y el Dr. LOGO que se suministra con los modelos 
CPC664 y CPC464+ DDI1; los incluimos por razones de compatibilidad, pero normal- 
mente no serán necesarios. 


Considere sus copias de los discos maestros como una “biblioteca” de programas. Para 
ejecutar uno de estos programas, el procedimiento habitual es insertar en la unidad el 
“disco de biblioteca” en el que se encuentre el programa y cargarlo con él, en lugar de 
copiar el programa en un disco nuevo y cargarlo desde éste. 


Insistimos una vez más en que los “discos de biblioteca” para el trabajo diario tienen 
que ser copias de los discos maestros que se suministran con el ordenador. 


Recuerde que el programa DISCKIT3 (cara 1) inicializa el disco destino al mismo tiem- 
po que copia, de modo que se puede hacer una copia en un disco virgen sin necesidad 
de inicializarlo previamente. 


Introducción a CP/M Plus 


El lector ya se habrá habituado a trabajar con el BASIC de AMSTRAD, programa que 
controla el CPC6128 desde el momento en que se lo enciende hasta que, o bien se ejecu- 
ta algún programa binario desde AMSDOS, o bien se carga CP/M Plus con la orden 
externa ¡cpm. 


Una vez cargado CP/M Plus, el ordenador no necesita volver a leer la cara 1 (salvo, 
por supuesto, que se quiera cargar alguno de los programas de ayuda que están graba- 
dos en esa cara). Por esta razón, el disco de arranque es el único que tiene que ser un 
disco de sistema; todos los demás pueden tener formato “de datos”, lo que les da mayor 
capacidad de almacenamiento. 


Para ejecutar un programa de CP/M lo único que hay que hacer es insertar el disco 
en el que esté grabado y escribir el nombre del programa. Los datos utilizados por el 
programa pueden estar en el mismo disco o en otro. CP/M Plus permite cambiar dis- 
cos, lo mismo que AMSDOS. Si por comodidad se prefiere agrupar varios programas 
en un mismo disco, quizá junto con algunos programas de ayuda, se puede utilizar el 
programa PIP de la cara 1 según explicaremos más adelante (en este capítulo y en el 
siguiente). 


 —_>-EE>>> Q=4+= a 


4/2 Discos y cintas 


El programa PROFILE 


El disco del sistema contiene un fichero especial, llamado PROFILE.SUB, que contiene 
una serie de órdenes que se ejecutan automáticamente en el momento de cargar CP/M 
Plus. Si no lo ha hecho todavía, inserte en la unidad una copia de la cara 1 de los discos 
maestros, cargue CP/M Plus y, cuando aparezca el mensaje A>, escriba: 


REN PROFILE. SUB=PROFILE.ENG 


Esta orden ha creado el fichero PROFILE.SUB a partir de PROFILE.ENG cambiándo- 
le el nombre (REN es abreviatura de rename, ““renombrar””). Este fichero, que será eje- 
cutado siempre que se cargue CP/M Plus, contiene las siguientes Órdenes: 


SETKEYS KEYS.CCP 
LANGUAGE 3 


las cuales modifican la función de las teclas del cursor (para adaptarlas a la escritura 
de órdenes de CP/M) y transforman la salida por la pantalla de la versión EE.UU. a 
la versión UK (Reino Unido), haciendo que la tecla [ISHIFTI3 genere el símbolo *£”. 


Cuando el teclado ha sido preparado con la orden SETKEYS.CCP, las líneas de órde- 
nes de CP/M se pueden editar de forma similar a como se hace en BASIC. En el capítu- 
lo 5, parte 2, explicaremos SETKEYS detalladamente. 


El programa HELP 


En la cara 3 de los discos del sistema está grabado un programa especial, llamado 
HELP; es una especie de manual de instrucciones electrónico que describe los progra- 
mas de ayuda de CP/M Plus. Para ejecutar este programa, inserte la cara 3 y escriba, 
tras el mensaje A>, lo siguiente: 


HELP 


El programa le hará las preguntas y le pedirá las respuestas necesarias para guiarle has- 
ta la información requerida. 


¿Cuántas unidades de disco? 


Cuando se carga CP/M Plus, una de sus primeras acciones es detectar cuántas unidades 
de disco hay conectadas. Este número se visualiza como parte del mensaje de presenta- , 
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ción. El resultado de la comprobación se puede falsear si en la segunda unidad hay un 
disco parcialmente insertado. 


Todos los mensajes de error relativos a los mecanismos de las unidades de disco se vi- 
sualizan en la línea 25, en forma de cinta “sin fin”. Los programas solamente utilizan 
las primeras 24 líneas de la pantalla. 


Cuando solamente se dispone de la unidad de disco incorporada al ordenador, en la 
última línea de la pantalla aparece también el mensaje “Drive is A:” o “Drive is B:' 
(“la unidad es ... >”). De esta forma CP/M Plus permite utilizar un sólo dispositivo 
físico como si se tratase de dos. Cuando sea necesario, el usuario tendrá que intercam- 
biar los discos; el ordenador pedirá en cada momento el disco requerido por el progra- 
ma. Este sistema hace que no sea imprescindible comprar la segunda unidad de disco, 
pero no puede evitar la necesidad de intercambiar los discos, a veces muy frecuente- 
mente, lo que representa una considerable pérdida de tiempo y un riesgo de error 
humano. 


Copia de ficheros de un disco a otro 


El programa de ayuda PIP (abreviatura de Periferal Interchange Program, “programa 
de intercambio entre periféricos””) permite, entre otras cosas, copiar ficheros de un dis- 
co a otro: 


Para cargar PIP, inserte en la unidad la cara 1 y escriba, tras el mensaje A>, lo 
siguiente: 


PIP 


Un nuevo signo “inductor”, el *, indicará que PIP ha quedado cargado correctamente. 
Normalmente se copiará de un disco fuente (en la unidad A:) a un disco destino (en 
la unidad B:). Ya hemos visto que en los sistemas de una sola unidad de disco las unida- 
des A: y B: son el mismo dispositivo físico. 


Para copiar un fichero (por ejemplo, el SUBMIT.COM), escriba después del * lo 
siguiente: ' 


B:=A:SUBMIT.COM 
Para copiar todos los ficheros del disco fuente al disco destino, escriba: 
B:=X.%X 


Para abandonar PIP, pulse [RETURN] tras el inductor *. 


PIP es un programa muy complejo. En el capítulo 5 lo describiremos más detallada- 
mente. 
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Disco para BASIC (sin CP/M) 


Como ya hemos mencionado, el único disco que se necesita con formato de sistema 
es el que se utiliza para cargar CP/M Plus. Por lo tanto, los discos destinados a BASIC 
pueden tener formato “de datos”, con el cual la capacidad de almacenamiento es algo 
mayor. 


El disco debe ser inicializado con el programa DISCKIT3. Para copiar programas se 
puede utilizar PIP (cara 1), o bien cargarlos (LOAD) y grabarlos (SAVE) desde BASIC. 


Discos llave en mano de BASIC de AMSTRAD 


Si usted compra una aplicación escrita en BASIC de AMSTRAD para el CPC6128, de- 
bería estar lista para funcionar sin más preparativos. Todo lo que tendrá que hacer es 
copiarla en un disco de trabajo y guardar el original. 


Programas llave en mano de CP/M 


El sistema operativo CP/M permite disponer de una inmensa variedad de programas 
que han sido escritos para los ordenadores personales que pueden trabajar con CP/M. 
El funcionamiento básico de los programas ya está decidido; todo lo que hay que hacer 
es instalarlos en un disco adecuado y quizá informarles del método de gestión de la pan- 
talla característico del CPC6128. 


Un conjunto de programas diseñado para realizar una aplicación específica es lo que 
se denomina un “paquete”. Los paquetes están diseñados normalmente para funcionar 
en diversos ordenadores, cada uno de los cuales tendrá un propio método de gestión 
de la pantalla y de movimiento del cursor. 


El CPC6128, cuando funciona con CP/M, está dotado de un “emulador de consola”; 
las características son diferentes de los códigos de control utilizados por BASIC. 


En ocasiones el paquete que usted adquiere ya habrá sido “instalado” en el Amstrad; 
de lo contrario, ofrecerá un menú para realizar la adaptación. Si el programa da ins- 
trucciones para el protocolo Zenith Z19/Z29, sígalas. Si no menciona esta variante ni 
tampoco una específica de Amstrad, consulte la sección titulada “Configuración de un 
programa en CP/M?, en la que se indica qué códigos se deben mandar a la pantalla 
para producir los efectos requeridos por los paquetes. Generalmente, la instalación (o 
adaptación) requerirá que se tecleen los códigos adecuados cuando el programa lo pida. 
Siga, en todo caso, las instrucciones suministradas con los programas. 
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El paquete que usted adquiera tiene que estar en un disco adecuado para este sistema. 
Casi todos los ordenadores tienen su propio formato de disco. Aunque el tamaño sea 
el mismo, no por ello está garantizada la compatibilidad. Al comprar un paquete de 
programas, pida a su proveedor la versión para Amstrad CPC6128 en discos de 3 
pulgadas. 


Creación de un disco de trabajo para programas 
llave en mano de CP/M 


Es aconsejable copiar los programas del paquete en otro disco y guardar el original. 
Además, suele ser conveniente copiar en el mismo disco el programa SETKEYS.COM, 
y quizá también SUBMIT.COM (con sus correspondientes ficheros de instrucciones). 


Se puede utilizar PIP para copiar los ficheros .COM, y también para elaborar un fiche- 
ro de instrucciones para SUBMIT. En esta última aplicación PIP funciona como senci- 
llo editor de líneas. Por ejemplo, el fichero LOGO3.SUB de la cara 3 se podría haber 
creado de la siguiente forma: 


(Inserte el disco del sistema, cara 1, en la unidad A:.) Escriba: 
PIP 


(Extraiga el disco del sistema e inserte el de destino.) Escriba: 


LOGO3. SUE=CON: 
SETKEYS KEYS. DRL 
[CONTROL IJ LOGO3 
(CONTROL 132 


Configuración de un programa de CP/M 


El CPC6128 maneja una amplia variedad de códigos de control, gracias a los cuales 
se lo puede adaptar a cualquier programa escrito para CP/M. La mayor parte de los 
programas de proceso de datos, así como muchos otros paquetes de aplicaciones, nece- 
sitan poder escribir mensajes en determinados lugares de la pantalla, leer caracteres es- 
critos en ella y entender los códigos de movimiento del cursor. 


Si su paquete de programas ya ha sido adaptado al ordenador Amstrad, no es necesario 
que se preocupe por estas cuestiones. 
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Configuración de la salida de un paquete 


La instalación de un paquete requiere normalmente la ejecución de un programa espe- 
cial (habitualmente llamado INSTALL) el cual, si no menciona terminales del tipo 
Z19/Z29 ni el CPC6128 específicamente, hará al usuario una serie de preguntas sobre 
las características de la pantalla del 6128. Para introducir las respuestas necesitará con- 
sultar la tabla siguiente, que es un resumen de la parte 15 del capítulo 7. 


as Ñ Hexadecimal Decimal Operación 

[BEL] £07 7 Producir un pitido 

[BS] $08 8 Cursor a la izquierda una posición 

[LF] S£0A 10 Cursor abajo una línea 

[CR] £0D 13 Cursor al borde izquierdo de la ventana, en la 
línea actual 

[ESC]A £«1B 41 27 65 Cursor arriba una línea 

[ESC]C «1lB 43 27 67 Cursor a la derecha una posición 

[ESC]JE «iB 845 27 69 Borrar pantalla 

[ESC]H «liB $48 277 Cursor a su posición inicial (extremo superior 
izquierdo de la ventana) 

[ESC]J «lB 84A 27 74 Borrar desde la posición actual del cursor inclu- 
sive hasta el final de la pantalla 

[ESC]JK £«1B $4B 27 75 Borrar desde la posición actual del cursor inclu- 
sive hasta el borde derecho de la pantalla 

[ESC]L £«1B $4C 27 76 Insertar línea 

[ESC]M £«1B 4D 27 71 Borrar línea 

[ESCIN «1B 84E 27 78 Borrar el carácter que está en la posición del 
cursor 

[ESC]Y S£«1B 859 27 89 Llevar el cursor hasta la posición especificada 
de la pantalla, donde (c) es el número de co- 

(c><f) (c><f) lumna más 32 y (f) es el número de fila más 

32 . 

[ESC]d £«lB 464 27 100 Borrar desde el principio de la pantalla hasta la 
posición actual del cursor inclusive 

[ESC]o G€lB «6F 27 111 Borrar desde el borde izquierdo de la pantalla 
hasta la posición actual del cursor inclusive 

[ESC]p «iliB 70 27 112 Activar video inverso (intercambio de colores 

: de papel y pluma) 
[ESC]g «1B 8:70 27 113 Desactivar video inverso 
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Configuración de la entrada a un paquete 


Los programas del paquete generalmente necesitarán captar datos a través del teclado. 
Casi todas las teclas del CPC6128 generan valores estándar, a excepción de las de movi- 
miento del cursor. Se puede utilizar SETKEYS para redefinir los códigos producidos 
por el teclado; sin embargo, es preferible adaptar cada programa para que acepte los 
códigos estándar. 


Lamentablemente, no hay ninguna norma general común a todos los programas en 
cuanto a qué teclas se deben pulsar para realizar las diversas funciones de control. Los 
caracteres visibles, el “espacio”, [TAB] y [RETURN] están bastante estadarizados; pero 
en cambio es notorio el desacuerdo en el “retroceso del cursor”, y mucho más en las 
restantes funciones. Compárese, por ejemplo, los códigos que significan “cursor al 
principio de línea” en los siguientes casos: 


En CP/M: [CONTROL]JB 
En Dr. LOGO: [CONTROLJA 
En ciertos procesadores de texto: [CONTROLJQ S 


Con los discos del sistema se suministran tres juegos de definiciones del teclado (parte 
2 del capítulo 5). Por ejemplo, 


SETKEYS KEYS.CCF 


orden ya descrita como una de las que ejecuta automáticamente el programa PROFI- 
LE.SUB, adapta el teclado para la escritura de órdenes de CP/M. 


Ejecución de un paquete llave en mano de CP/M 


Normalmente, basta con escribir el nombre del programa a la derecha del mensaje in- 
ductor A>. Por ejemplo, para poner en marcha un programa de nóminas llamado NO- 
MINAS.COM se escribiría, sencillamente, 


NOMINAS 


Si alguna configuración requiere cierta preparación, quizá incluya un fichero de tipo 
«SUB. Un ejemplo es el LOGO3.SUB que está grabado en la cara 3. Este fichero se 
invoca mediante la orden 


SUBMIT LOGO3 
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Para examinar el fichero se puede escribir 
TYPE LOGO3. SUB 


y se comprueba que contiene 


SETKEYS KEYS. DRL . . . para redefinir el teclado 
LOGO3 . . . para ejecutar el programa Dr. LOGO 
SETKEYS KEYS.CCP . .. para devolver el teclado a la situación inicial 


Arranque automático de un paquete llave en 
mano en CP/M 


Se puede hacer que cada vez que se cargue el sistema operativo CP/M Plus con el disco 
de arranque, el propio sistema ponga en marcha un programa concreto. La forma de 
conseguirlo es poner el nombre del programa al final del fichero PROFILE.SUB que 
haya en ese disco. 


Introducción al GSX 


GSX es un sistema de gestión de gráficos que permite a los programas de CP/M dar 
como salida gráficos además de texto. Se utiliza GSX para aplicaciones tales como di- 
bujar diagramas de barras y de sectores o para escribir encabezamientos y textos. con 
tipos de letra y tamaños distintos de los normales. En la figura siguiente se muestra 
una reproducción de una salida típica obtenida con GSX. Las salidas se pueden dirigir 
a la pantalla, a una impresora o a un plotter. 


El sistema GSX por sí mismo no es capaz de dibujar, por lo mismo que CP/M no puede 
realizar proceso de textos: se requiere en cada caso un programa específico. El ejemplo 
de la figura se obtuvo mediante el programa “DR Graph” de Digital Research. Lo que 
sí hace GSX es estandarizar el acceso a pantallas, impresoras y plotters, de forma que 
los programas de aplicación sean transportables de unas máquinas a otras sin requerir 
más que un mínimo de trabajo de reinstalación. 


Para crear un disco con el que se puedan ejecutar programas GSX, copie (de la cara 
3), mediante PIP, los ficheros GSX.SYS, ASSIGN.SYS y los controladores de dispo- 
sitivo requeridos (junto con el propio programa de aplicación) en un disco vacío. El 
fichero ASSIGN.SYS contiene una lista de hasta tres controladores de dispositivo, en 
orden inverso de su tamaño: 
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21 aliddixlr? 5 Epson 7? bit printer impresora Epson de 7 bits 
11 a:ddhp?479 3 Pen plotter plotter 

91 a:ddmode2 5; Screen in mode 2 pantalla en modo 2 

£2 a:ddmodel 5 Screeñ in mode 1 pantalla en modo 1 

93 a:ddmodeY9 3 Screen in mode Y pantalla en modo 0 


Los números (01 a 21) informan a GSX del tipo de dispositivo de que se trata (impreso- 
ra, plotter o pantalla). En todo momento no hay más que un controlador de dispositivo 
cargado en la memoria; por eso GSX necesita conocer el tamaño del mayor con el fin 
de reservarle el espacio necesario. 


Con los discos se proporcionan diversos controladores para los tres modos de pantalla 
del 6128 y para las impresoras y plotters estándar. El fichero DRIVERS.GSX contiene 
una lista de los disponibles. Lea este fichero insertando en la unidad la cara 3 y escri- 
biendo tras el mensaje A> lo siguiente: 


TYPE DRIVERS. 6SX 


para seleccionar los controladores de dispositivo requeridos. 


Test Diagram 
Ken's wages in pence 


+11 2 100.00 
108,00 +Fi1l1 1 


100.09 Fill u 
+i11 7 150.00 


1908.08 +111 3 


+i11 4 1090.90 
109.08 +il1 4 
$111 5 50.90 


Un ejemplo de salida por impresora obtenida con GSX 
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Normalmente los programas de aplicación incluirán un cargador de GSX, de modo que 
para ejecutar el programa bastará con escribir el nombre del programa en respuesta 
al mensaje A>. No obstante, si su aplicación no tiene instalado el cargador de GSX, 
copie el fichero GENGRAF.COM (cara 3) en su disco de trabajo y luego escriba 


GENGRAF PROGRAMA 


donde PROGRAMA.COM es el nombre de la aplicación no instalada. Ahora puede 
borrar GENGRAF.COM, puesto que PROGRAMA.COM ya contiene el cargador de 


GSX. 


Trabajo con CP/M 2.2 


A diferencia de CP/M Plus, CP/M 2.2 (que es una versión anterior) es muy exigente 
en cuanto al cambio de discos. Frecuentemente requiere que se vuelva a cargar parte 
del sistema operativo con un disco de sistema instalado en la unidad A:, en particular 
cuando reaparece el mensaje inductor A> después de ejecutar un programa. Por esta 
razón se suelen utilizar con CP/M 2.2 discos con formato de sistema. Cuando no se 
dispone de segunda unidad de disco, para copiar ficheros hay que utilizar FILECOPY 
en lugar de PIP. 

Se recomienda no utilizar CP/M 2.2 más que para ejecutar programas diseñados para 
los modelos CPC664 y CPC464+DDI1, los cuales pueden no ser compatibles con 
CP/M Plus. 


Advertencia. Algunas aplicaciones escritas para los modelos CPC664 y 
CPC464+DDI1 contienen ciertas instrucciones específicas de la máquina y no 
funcionarán, por tanto, con CP/M Plus. En tales casos será necesario utilizar 
CP/M 2.2, que está grabado en la cara 4 del juego de discos que se suministra con 
el ordenador CPC6128. 
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Parte 2: Cintas 


Se puede conectar un magnetófono de cassettes al sistema (según se explicó en la parte 
2 del “Curso de introducción”). Cuando se especifica el funcionamiento con magnetófo- 
no mediante la orden ¡tape, algunas instrucciones de BASIC funcionan de forma dife- 
rente. Por ejemplo, en la pantalla se verán ciertos mensajes que no aparecen cuando 
se está trabajando con discos. 


Nota. En algunos magnetófonos las funciones de avance rápido y rebobinado están 
controladas por el control remoto. En tal caso, para hacer avanzar o retroceder 
la cinta en modo rápido se debe, o bien desconectar la clavija REM del magnetó- 
fono, o bien escribir la orden ¡TAPE:CAT, con el fin de activar el movimiento 
del motor. La orden CAT se cancela con la tecla [ESC]. 


A diferencia de lo que ocurre con el sistema de grabación en disco, los nombres de los 
ficheros que se graban en cinta no tienen que sujetarse a normas estrictas. Pueden cons- 
tar de hasta 16 caracteres y contener espacios y signos de puntuación. En determinados 
casos, ni siquiera son necesarios. 


A continuación damos una lista de las diferencias entre las dos versiones (cinta y disco) 
de las instrucciones citadas. Las descripciones de las instrucciones se encuentran en el 
capítulo 3 (“Lista completa de las palabras clave del BASIC de AMSTRAD”). 


CAT 
El ordenador le pedirá que: 
Press PLAY then any key: 


(“Pulse PLAY y luego cualquier tecla.”) Usted debe pulsar el botón PLAY ('reprodu- 
cir”) del magnetófono y después una de las teclas del ordenador. El motor del magnetó- 
fono empezará a moverse y el ordenador escribirá en la pantalla la lista de los ficheros 
que haya en la cinta a medida que los vaya encontrando. 


Para cada fichero se mostrará cada uno de los bloques integrantes, seguidos de un ca- 
rácter que indica el tipo de fichero: 


$ fichero de BASIC no protegido 
% fichero de BASIC protegido 

* — fichero ASCII 

€ fichero binario 


El ordenador escribe 


Ok 
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al final de la línea cuando ha terminado de leer sin incidentes el fichero; esto indica 
que habría podido cargar el fichero en memoria si lo hubiera intentado. 


La instrucción CAT no afecta al programa residente en la memoria del ordenador. 


Si un fichero ha sido grabado sin nombre, CAT escribe 
Unnamed +file 


(“fichero sin nombre”). 
EL proceso se puede interrumpir en cualquier momento pulsando [ESC]. 


Errores de lectura 
Si no aparecen en la pantalla los mensajes mencionados, o si aparece 
Read error a 6... 0bien ... Read error b 


puede estar ocurriendo lo siguiente: 


1. El magnetófono no está conectado correctamente en el zócalo CINTA del ordena- 
dor (véase la parte 2 del “Curso de introducción”). 

2. No está correctamente ajustado el control VOLUMEN del magnetófono. 

3. La cinta está gastada o es de baja calidad. 

4. La cinta ha estado sometida a un campo magnético (se la ha dejado cerca de un alta- 


voz, televisor, etc.). 
S. Se está tratando de leer una cinta incompatible con los ordenadores AMSTRAD. 


CHAIN 

CHAIN MERGE 
LOAD 

MERGE 

RUN 


No es necesario especificar el nombre del programa si se pretende leer el primero que 
el ordenador encuentre en la cinta. Ejemplos: 


CHAIN "" 
CHAIN "",199 


CHAIN MERGE ”"” 
CHAIN MERGE "",109 
CHAIN MERGE "",1668, DELETE 36-78 


LOAD UNO] 
LOAD "",k1F49 
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MERGE "" 
RUN ..u 


(Nótese que esta última orden se ejecuta pulsando la tecla [INTRO] en combinación 
con [CTRL]l; previamente se debe haber ejecutado ¡tape.) 


El ordenador le pedirá que: 


“Press PLAY then any key! 


(“Pulse PLAY y luego cualquier tecla.”) Usted debe pulsar el botón PLAY del magnetó- 
fono y después una de las teclas del ordenador. El motor del magnetófono empezará 
a moverse y el ordenador cargará el fichero. 


En la pantalla se mostrarán los mensajes de carga: 


Loading NOMBREFI block i 


y así sucesivamente para los restantes bloques hasta que el fichero esté cargado. 


Si el primer carácter del nombre del fichero es | se suprimen todos los mensajes citados, 
y usted debe asegurarse de que ha pulsado el botón PLAY. En el caso de los ficheros 
grabados en disco, el ordenador ignora el distintivo !. Observe que el signo ! no cuenta 
a efectos de la longitud del nombre del fichero. 


Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje 


Broken in 


Si no consigue cargar el fichero, lea el apartado “Errores de lectura” anterior. 


¡Atención! El interfaz del disco ocupa una pequeña porción de la memoria del orde- 
nador, la cual ha sido aprovechada en algunos programas comerciales escritos para 
ser cargados en el CPC464 desde la cinta. Tales programas no funcionarán correcta- 
mente en el CPC6128. 


EOF 
POS(+9) 


Estas funciones operan igual con cinta que con disco. 
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INPUT +9 
LINE INPUT +9 
OPENIN 
CLOSEIN 


No es necesario especificar el nombre del fichero si se desea leer el primer fichero que 
el ordenador encuentre en la cinta. Ejemplo: 


OPENIN "" 
El ordenador le pide que: 


Press PLAY then any key: 


(“Pulse PLAY y luego cualquier tecla.”) Usted debe pulsar el botón PLA Y del magnetó- 
fono y después una de las teclas del ordenador. La cinta empezará a moverse y el orde- 
nador cargará los primeros 2K del fichero en una zona de memoria denominada “tam- 
pón”. El programa toma los datos del tampón. Cuando se vacía, el ordenador vuelve 
a emitir el mensaje: 


Press FLAY then any key: 


y carga los 2K siguientes. 


En la pantalla van apareciendo los mensajes de carga: 


Loading NOMBREFI block 1 


para los sucesivos bloques. 


Si el primer carácter del nombre del fichero es ! se suprimen todos los mensajes citados; 
usted debe asegurarse de que ha pulsado el botón PLAY. En el caso de los ficheros 
grabados en disco, el ordenador ignora el distintivo !. Observe que el signo ! no cuenta 
a efectos de la longitud del nombre del fichero. : 


Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje 
Broken in 


Si no consigue cargar el fichero, lea el apartado “Errores de lectura” anterior. 
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LIST +9 
OPENOUT 
CLOSEOUT 
PRINT +9 
WRITE 9 


No es necesario especificar el nombre del fichero si se desea grabarlo como Unnamed 
file (fichero sin nombre). Ejemplo: 


OPENQUT "" 


El ordenador va enviando datos a una porción de la memoria denominada “tampón”, 
cuya capacidad es de 2 K. Cuando se llena el tampón, el ordenador pide que 


Fress REC and PLAY then any key! 


(“Pulse REC y PLAY y luego cualquier tecla.”) Usted debe pulsar los botones REC y 
PLAY del magnetófono y después una de las teclas del ordenador. La cinta empezará 
a moverse y el ordenador grabará en ella el contenido del tampón. El ordenador sigue 
enviando datos al tampón; cada vez que se llena vuelve a emitir el mensaje 


Press REC and PLAY then any key! 


y a grabar los 2K en la cinta. 


Si el tampón está parcialmente ocupado cuando se ejecuta la orden CLOSEOUT, el or- 
denador vuelve a emitir el mensaje. 


Press REC and PLAY then any key: 
tras lo cual vacía el tampón hacia la cinta. 
Durante el proceso de grabación aparecerán en la pantalla los mensajes del tipo 


Saving NOMEREFI block (x) 


Si el primer carácter del nombre del fichero es ! se suprimen todos los mensajes citados; 
usted debe asegurarse de que ha pulsado los botones REC y PLAY del magnetófono. 
En el caso de los ficheros grabados en disco, el ordenador ignora el distintivo !. Obser- 
ve que el signo ! no cuenta a efectos de la longitud del nombre del fichero. 


Si se abandona el proceso pulsando [ESC], se provoca el mensaje: 


Broken in 


4/16 Discos y cintas 


Calidad de la grabación 


Para asegurar la fiabilidad de la grabación: 

1. Compruebe que el magnetófono está correctamente conectado al zócalo CINTA del 
ordenador (véase la parte 2 del “Curso de introducción”). 

2. Ajuste adecuadamene el control del nivel de entrada del magnetófono (si lo tiene). 

3. No utilice cintas de baja calidad, ni de duración C120. (Recomendamos las cintas 
AMSOFT CIS.) 

4. Asegúrese de no dejar las cintas sometidas a la influencia de campos magnéticos 
(cerca de altavoces, televisores, etc.) 


5. Antes de borrar el programa de la memoria, compruebe que ha quedado correcta- 
mente grabado rebobinando la cinta y verificando su contenido mediante la orden 


CAT. 
6. Dé a su magnetófono un mantenimiento periódico adecuado; en particular, limpie 
las cabezas con regularidad. 


SAVE 


No es necesario especificar el nombre del fichero si se desea grabarlo como Unnamed 
file (“fichero sin nombre”). Ejemplo: 


SAVE mon 


El ordenador pide que 
Press REC and PLAY then any key! 


(“Pulse REC y PLAY y luego cualquier tecla.”) Usted debe pulsar los botones REC y 
PLAY del magnetófono y después una de las teclas del ordenador. La cinta empezará 
a moverse y el ordenador grabará en ella el programa. 


Durante el proceso de grabación aparecerán en la pantalla los mensajes del tipo 
Saving NOMBREFI block 1 


Si el primer carácter del nombre del fichero es ! se suprimen todos los mensajes citados; 
usted debe asegurarse de que ha pulsado los botones REC y PLAY del magnetófono. 
En el caso de las ficheros grabados en disco, el ordenador ignora el distintivo !. Obseve 
que el signo ! no cuenta a efectos de la longitud del nombre del fichero. 


Si se abandona el proceso pulsando [ESC], se provoca el mensaje 
Broken in 


Lea el apartado “Calidad de la grabación” anterior. 
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SPEED WRITE 


Esta orden sólo afecta a la cinta, pero puede ser ejecutada cuando el ordenador está 
trabajando con el disco. 


Mensajes de error 


El sistema de cinta puede generar los mensajes 7, 21, 24, 25, 27 y 32 (véase la parte 
3 del capítulo titulado “Para su referencia ...”). 


Órdenes externas de AMSDOS 


¡TAPE 


especifica que las entradas y salidas se deben dirigir a la cinta. Esta orden se puede sub- 
dividir en 


¿¡TAPE. IN 
para las entradas y 

¿TAPE. OUT 
para las salidas. 


¡DISC 


especifica que las entradas y salidas se deben dirigir al disco. Esta orden se puede subdi- 
vidir en 


DISC. IN 


para las entradas y 


+DISC. OUT 


para las salidas. 
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Las órdenes 


JA 

¡B 
¡CPM 
¡DIR 
¡DRIVE 
¡ERA 
¡REN 
¡USER 


se ejecutan siempre con el disco, aun cuando se haya seleccionado la cinta con las órde- 
nes ¡tape. 
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Capítulo 5 
AMSDOS y CP/M 


Parte 1: AMSDOS 


Temas tratados: 


Introducción a AMSDOS 

Directorio del disco 

Cambio de discos 

Nombres y tipos de ficheros 

Cabeceras de fichero en AMSDOS 

Nombres de fichero con dos unidades de disco 
Símbolos comodín 

Ejemplo de programa con órdenes de AMSDOS 
Guía de referencia de las órdenes de AMSDOS 
Manejo y copia de ficheros 

Guía de referencia de los mensajes de error 


XK XA XK LK XX LL  -X XX XX *X 


Introducción 


AMSDOS amplía el BASIC suministrado con su ordenador al añadirle algunas órdenes 


externas, identificadas por el signo ¡ que las precede. 


AMSDOS permite cambiar libremente los discos siempre que no haya ningún fichero 
abierto. Si lo hay, emite un mensaje de error y se puede producir una pérdida de datos 
si el fichero estaba abierto para escritura (en dirección de salida). 


Directorio del disco 


Todos los discos tienen dos secciones: el directorio y el área de datos. El directorio con- 
tiene la lista de los nombres de los ficheros y un 'mapa” de la organización del área 
de datos. AMSDOS y CP/M pueden calcular el tamaño de un fichero consultando su 
reseña en el directorio. El cálculo del espacio libre se realiza sumando las longitudes 
de todos los ficheros y restándolo de la capacidad total del disco. 


A 
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Cada vez que se va a leer de un fichero, se consulta su reseña en el directorio para averi- 
guar su situación en el disco. Cuando se crea un fichero nuevo, se le reserva espacio 
en el disco. Cuando se borra un fichero, se libera el espacio por él ocupado. El directo- 
rio trabaja en unidades de IK y puede contener hasta 64 reseñas. Los ficheros largos 
necesitan una reseña para cada 16K, si bien este hecho queda oculto y carece de impor- 
tancia para el usuario. 


Cambio de discos 


AMSDOS (y CP/M Plus) permite el cambio o la extracción del disco en todo momento 
en que no se esté accediendo a él, suponiendo que no haya ningún fichero abierto en 
esa unidad. A diferencia de CP/M 2.2, no necesita “reconocer” los discos. 


Si se extrae un disco cuando se está escribiendo en él, se pueden perder los datos graba- : 


dos en el disco. En cuanto AMSDOS detecta que se ha extraído un disco habiendo fi- 
cheros abiertos en él, se abandonan todos los ficheros y se emite un mensaje de error. 
Los datos pendientes de escribir en el tampón de salida se perderán, y no se grabará 
la última reseña del directorio. No obstante, AMSDOS solamente detecta la extracción 
del disco cuando consulta el directorio, lo que ocurre, con ficheros grandes, una vez 
cada 16K (y siempre que abre o cierra un fichero). Así, es posible perder 16K de datos 
si se extrae un disco antes de cerrar todos los ficheros abiertos en él. 


Nombres y tipos de ficheros en AMSDOS 


Es costumbre dar a los ficheros nombres que incluyan un distintivo del tipo de fichero 
de que se trata. Este convenio no obliga al ordenador a utilizar los ficheros de una for- 
ma determinada, si bien hay programas que solamente aceptan ficheros de un tipo de- 
terminado. BASIC acepta ficheros de todo tipo, pero busca preferentemente ciertos ti- 
pos si no se le especifica otra cosa. (Véase la sección “Cabeceras de fichero en 
AMSDOS'.) 


Construcción de los nombres de los ficheros 


El nombre del fichero consta de dos partes, separadas por un punto (.). La primera 
parte consta de 8 caracteres como máximo; la segunda puede contener hasta 3 caracte- 
res. Así, por ejemplo, “ROINTIME.DEM”, “DISCKIT3.COM” y “DISC.BAS” son 
nombres correctos de fichero. 
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La segunda parte del nombre del fichero es el distintivo de tipo. Los nombres y los dis- 

tintivos pueden consistir en una mezcla cualquiera de letras y números, pero no pueden 

contener espacios ni signos de puntuación. Algunos distintivos de tipo convencionales, 

son los siguientes: 

.(espacios) Tipo no especificado. Puede ser un fichero creado por OPENOUT 
“¿nombrefi>”, o bien un programa de BASIC grabado por AMSDOS 
con SAVE “(nombrefi)”,A. 


.BAS Programa de BASIC grabado con SAVE *”'(nombrefi>”, con SAVE 
“*¿nombrefi>”,P o con SAVE”“(nombrefi>”.BAS”,A. 

.BIN Programa o zona de memoria grabados por AMSDOS con SAVE 
“*«nombrefi)>”,B,<parámetros binarios). 

.BAK Este distintivo se asigna automáticamente a la versión anterior de un fi- 


chero cuando AMSDOS o un programa de ayuda graban una versión 
más moderna con el mismo nombre. Esto permite que el usuario pueda 
utilizar o consultar la versión anterior siempre que lo necesite. 


.COM Fichero de orden (programa directamente ejecutable). Los programa de 
ayuda de CP/M son de este tipo. 
.SUB Fichero de instrucciones para el programa SUBMIT de CP/M. 


Cabeceras de fichero en AMSDOS 


AMSDOS asigna automáticamente a los ficheros, distintivos de tipo adecuados cuando 
los graba, por lo que normalmente no es necesario especificar distintivo. Los ficheros 
de BASIC ordinarios, los ficheros de BASIC protegidos y los ficheros binarios se gra- 
ban con un registro de cabecera, de forma que en el proceso de lectura la orden de 
AMSDOS : 


LOAD "(nombrefi)" 


pueda reconocerlos y obrar en consecuencia. Si la orden LOAD no encuentra el registro 
de cabecera, supone que se trata de un fichero ASCII, es decir, de.un fichero de texto. 


Independientemente del registro de cabecera, cuando se pide a AMSDOS que cargue 
un fichero sin especificarle el distintivo de tipo, empieza por buscarlo con el distintivo 


. Cespacios) 


Si no lo encuentra, busca uno del tipo 


. BAS 
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y, finalmente, del tipo 
.BIN 


Esto permite que el usuario se despreocupe del distintivo de tipo en la mayor parte de 
los casos. 


Un fichero de disco creado por OPENOUT y escrito por BASIC carecerá de registro 
de cabecera; su contenido estará en ASCII (es decir, texto normal escrito con las órde- 
nes WRITE, PRINT o LIST de BASIC.) La orden OPENIN busca los ficheros en el 
mismo orden que LOAD si no se especifica distintivo de tipo. 


Nombres de fichero con dos unidades de disco 


En los sistemas de dos unidades de disco (esto es, en aquellos a los que se ha conectado 
la unidad externa), puede haber ficheros en las dos unidades. El ordenador no busca 
los ficheros automáticamente en las dos unidades, por lo que el usuario debe especificar 
qué unidad se va a utilizar. Se puede utilizar las órdenes ¡A, ¡B o DRIVE (descritas 
más adelante) para seleccionar una de las dos unidades; o bien, sin necesidad de modifi- 
car la unidad implícita, se puede especificar A: o B: como prefijo del nombre del fiche- 
ro (los números de usuario permiten participar el directorio). Así, por ejemplo, 


¡B 
SAVE "PROG.BAS" 
¡A 


JA 
SAVE "B:PROG.BAS" 
graban el programa en la segunda unidad (B). 


Análogamente, se puede modificar transitoriamente la asignación implícita de USER 
(“usuario”, margen de 0 a 15) poniendo el número de usuario como prefijo del nombre 
del fichero. Así, por ejemplo, 


LOAD "i5:PROG.BAS" 


SAVE "15: PROG. BAS" 


cargan y graban el programa de la sección del disco correspondiente al usuario número 
15, cualquiera que sea la asignación implícita de USER. (Véase más abajo la descrip- 
ción de la orden ¡USER.) 
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Finalmente, se pueden modificar transitoriamente las asignaciones implícitas de USER 
y DRIVE a un tiempo especificando ambos (y en este orden) como prefijo del nombre 
del fichero. Por ejemplo, 


RUN "15B:PROG.BAS” 


Símbolos comodín 


A veces se necesita realizar con el disco operaciones (catálogo, copia, borrado, etc.) 
que afecten a varios ficheros. Cuando se especifica un nombre de fichero para una de- 
terminada operación, el sistema busca en el directorio un nombre que coincida exacta- 
mente con el especificado. Algunas órdenes pueden actuar sobre un conjunto de fiche- 
ros independientemente de alguno de los caracteres de su nombre. En vez de especificar 
los caracteres “indiferentes”, en su lugar se pone el signo de interrogación ?. Si todo 
el bloque (o resto del bloque) del nombre del fichero o del distintivo de tipo es indife- 
rente, el conjunto de signos de interrogación se puede sustituir por un asterisco. Así, 
por ejemplo, NOM.* es abreviatura de NOM.???, y F*.BAS es abreviatura de 
F???????.BAS. 


La expresión *.* significa “todos los ficheros”. 


Ejemplos: 


Disctoño Concuerdan con Concuerdan con Concuerdan con 
* BAS NOM?.BAS N*.BA? 


BANCO.BAS  BANCO.BAS 
NOM1.BAS NOM1.BAS NOM1.BAS NOM1.BAS 
NOM2.BAS NOM2.BAS NOM2.BAS NOM2.BAS 


NOM3.BAK NOM3.BAK 
NOM3.BAS NOM3.BAS NOM3.BAS NOM3.BAS 
NOMINA.BAS NOMINA.BAS NOMINA.BAS 


Ejemplos de utilización de órdenes de AMSDOS 
dentro de un programa 


Para mejor asimilar las órdenes de AMSDOS, le recomendamos que introduzca en el 
ordenador y estudie los programas siguientes. No ejecute nunca estos programa con 
un disco maestro de CP/M instalado: los programas escriben datos en disco, y nunca 
se debe correr el riesgo de escribir sobre los discos maestros originales. Utilice una co- 


pia o un disco de trabajo. 


e mm —K—K< 
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Grabación de variables y volcado de pantalla 


El siguient 


e programa dibuja la bandera británica y graba la pantalla completa en dis- 


co. Para ejecutarlo es necesario poner en la unidad un disco inicializado. 


19 
29 


fichero$="volcpant.srn" 
MODE 1:BORDER Y 
DIM color(2) 
FOR i=9 TO 2 

READ color(i): REM lee colores de lista DATA 
INK i,color(i) 
NEXT 
ON ERROR GOTO 439 
OPENIN "param.dat" *? comprueba si existe fichero 
CLOSEIN:ON ERROR GOTO 9 

IF numerror=32 AND DERR=144 THEN CcLsS 

CURSOR 1:PRINT "Quiere escribir sobre el fichero": 
PRINT "anterior? Y/N"; 

a$=INKEYS$:ON INSTR(" YN", ,UPPERS$(as$)) GOTO 130,159, 
149:GÓTO 139 

PRINT a$:PRINT *Fin del programa": END 

PRINT as$: CURSOR Y 

OPENOUT "param.dat" 

WRITE $9,fichero$, 1: REM graba nombre de fichero y 
modo 

FOR i=8 TO 2 

WRITE $49,color(i): REM graba colores 

NEXT i 

CLOSEOUT 

CcLSs 

9P=1: GRAPHICS PEN gp:w=125 

x=-65:3=249: y=490:b=-159:GOSUB 499 
y=9:b=159:GOSUB 409 

x=5751a=-249: y=490:b=-159:GOSUB 490 
y=0:b=159:GOSUB 499 

9p=2:GRAPHICS PEN gp:w=49 

a=2481!x=-49: y=499:b=-159:GOSUB 490 
x=9:y=9:5=159: GOSUB 499 
a=-249::x=649:y=9:b=159: GOSUB 498 

x=699: y=4909:b=-1590:GOSUB 499 

ORIGIN 9,9,256,3898,9,499:CLG 1 

ORIGIN 9,9,9,649,159,258:CLG 1 

ORIGIN 9,9,289,352,9,498:CLG 2 

ORIGIN 9,9,9,649,168,239:CLG 2 

SAVE fichero$,b,kC999, 4999 

DATA 2,26,6 


———_ A MMMMMMIIIAA>5254%4+4%44%4%4%4 
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399 END 

498 MOVE x,y:DRAWR a,b:DRAWR w,S:DRAWR -a,-b 
419 MOVE x+a/2+w/2,y+b/2:FILL gp 

429 RETURN 

4398 numerror=ERR:RESUME NEXT 

run 


Fíjese en los distintivos de tipo .DAT y .SRN. No tienen más significado intrínseco que 
recordarnos cuál es su contenido. El fichero PARAM.DAT será un fichero ASCII sin 
registro de cabecera, mientras que VOLCPANT.SRN es un fichero binario AMSDOS . 
con cabecera. 


Observe que el programa trata de leer el fichero PARAM.DAT, para averiguar si exis- 
te, antes de escribir en él. Si no existe, BASIC genera un error, el cual es gestionado 
por el programa para que la ejecución continúe sin interrupción. Si ya existe el fichero, 
no se genera error y el programa pregunta al usuario si desea escribir encima de él. 


En este fichero se graba información sobre el modo de pantalla, los colores y el nombre 
del fichero que contiene el volcado de pantalla. La línea 170 ilustra cómo se puede utili- 
zar un fichero de datos para escribir en él valores de variables (fichero$) y constantes 
(1) que luego hayan de ser utilizados por otro programa. 


Carga de pantallas 


El siguiente ejemplo es un lector de volcados de pantalla que utiliza un fichero de pará- 
metros para controlar su acción. Observe cómo se leen los datos del fichero con INPUT 
y cómo se utiliza EOF para adaptar la lectura automáticamente al tamaño del fichero. 
Para que este programa visualice correctamente el volcado de pantalla, es necesario que 
la grabación se haya hecho en una posición de memoria conocida, pues en caso contra- 
rio la imagen quedará desplazada. Esto se garantiza grabando el volcado después de 
ejecutar una orden MODE y teniendo cuidado de que durante la formación de la ima- 
gen no se desplace la pantalla. 


18 DIM color(15): REM preparacion para 1ló colores 
29 OPENIN "param.dat” 

39 INPUT 49,nombrefichero$,modopantalla 

49 ¡=9 

59 WHILE NOT EOF 

68 INPUT $9,color(i) 

79 —INK i,color(i) 

sg i=i+l 

98 WEND 


199 CLOSEIN 
119 MODE modopantalla: BORDER Y 


129 LOAD nombreficheros 
run 


nn a _  _ ——K—Á— 
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Resumen de las órdenes externas de AMSDOS 


Orden. Especifica que la unidad de disco implícita sea la A. Equivale a ¡DRIVE con 
parámetro A. (La unidad incorporada al ordenador es la A.) 


Orden. Especifica que la unidad de disco implícita sea la B. Equivale a | DRIVE con 
parámetro B. (La unidad incorporada al ordenador es la A.) 


¡CPM 
¡CPM 


Orden. Carga un sistema operativo de disco. Los sistemas operativos suministrados 
con el ordenador son CP/M Plus y CP/M 2.2. 


La ejecución de esta orden no se puede completar si en la unidad no hay instalado un 
disco de sistema con CP/M. En concreto, CP/M Plus se carga con una copia de la- 
cara 1 de los discos maestros suministrados con el ordenador; CP/M 2.2, con una copia 
de la cara 4. 


¡ DIR 
¡DIR [, expresion literal)] 
¡DIR,"%.BAS" 


Orden. Escribe en la pantalla el directorio del disco (al estilo de CP/M) y el espacio 
libre. Si se omite el parámetro, se supone *.*. 


-_í_—_ — _ —_—_—_————_>————AAA4AAAAA A A A 
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¡DISC 


¡DISC 


Orden. Equivale a las órdenes ¡DIS.IN y ¡DISC.OUT. 


¡ DISC.IN 


¡DISC. IN 


Orden. Especifica que las operaciones de lectura se deben hacer con el disco. 


¡ DISC.OUT 


¡DISC. OUT 


Orden. Especifica que las operaciones de escritura se deben hacer con el disco. 


¡ DRIVE 
¿¡DRIVE, (expresion literal) 


¡DRIVE, "A" 


Orden. Establece qué unidad de disco se debe considerar como implícita en lo sucesivo. 
Esta orden fallará si AMSDOS no consigue leer en la unidad especificada. 


¡ERA 
¡ERA, (expresion literal) 
JERA, "*.BAK" 


Orden. Borra todos los ficheros que concuerden con la (expresión literal) y no sean 
de sólo lectura. Admite símbolos comodín. 


¡REN 


REN, (expresion literal), (expresion literal) 


REN, "FICHNUEV. BAS", "FICHANTI.BAS” 
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—_— _—__—————  _ o __Q___ 


Orden. Da un nuevo nombre a un fichero ya existente en el disco. No puede haber otro 
fichero con el nombre nuevo. No admite símbolos comodín. 


Se puede incluir el parámetro USER (usuario”, véase más abajo) en la (expresión 
literal) para modificar transitoriamente la situación implícita. Por ejemplo, 
¡ REN,”0:NUEVO.BAS”,15:ANTIGUO.BAS” da al fichero “ANTIGUO.BAS” de 
USER 15 el nuevo nombre “NUEVO.BAS” en USER 0, cualquiera que sea el paráme- 
tro de ¡USER especificado con anterioridad. 


¡TAPE 
!TAPE 


Orden. Equivale a las órdenes ¡TAPE.IN y ¡TAPE.OUT. Solamente actúa si está co- 
nectado un magnetófono externo. 


¡; TAPE.IN 
¡TAPE. IN 


Orden. Especifica que las operaciones de lectura se deben hacer con la cinta. Solamente 
actúa si está conectado un manetófono externo. 


¡TAPE.OUT 


¿TAPE. OUT 


Orden. Especifica que las operaciones de escritura se deben hacer con la cinta. Sola- 
mente actúa si está conectado un magnetófono externo. 


¡USER 
USER, (expresion entera) 
¡USER, 3 


Orden. Determina con cuál de las 16 secciones del directorio (áreas de usuario, del 0 
al 15) deben actuar ciertas órdenes de manejo de disco (CAT, LOAD, ¡DIR, etc.). 


Un fichero grabado en un área de usuario puede ser transferido a otra con la orden 
¡REN. Así, ¡REN,”15:EJEMPLO.BAS”,“0:EJEMPLO.BAS” transfiere el fichero 
del área 15 al área O sin cambiarle el nombre. 
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Copia de ficheros de disco a disco 


Ficheros de AMSDOS con cabecera 


Los ficheros de este tipo se pueden copiar desde CP/M mediante PIP y (véase la parte 
2 de este capítulo). Los ficheros creados por AMSDOS con registro de cabecera (véase 
más arriba) pueden ser copiados en bloque (disco a disco), pero en general su contenido 
no puede ser entendido por los programas de CP/M. 


Ficheros ASCH 


Los ficheros creados por AMSDOS sin registro de cabecera estarán generalmente en 
ASCII y son tanto copiables como entendibles por los programas de CP/M. En concre- 
to, los ficheros de programa, de datos y de texto de ASCII son intercambiables entre 
AMSDOS y CP/M. 


Ficheros de “sólo lectura? 


Desde CP/M es posible hacer que un fichero sea de sólo lectura y/o invisible a efectos 
de catálogo del directorio. Estas características sólo se pueden establecer o anular desde 
CP/M, pero son respetadas por AMSDOS. Para más detalles, véase la parte 2 de este 
capítulo (programa de ayuda SET). 


Copia de ficheros entre disco y cinta 


CP/M Plus no está preparado para acceder a ficheros de cinta y copiarlos en disco, 
ni para copiar ficheros de disco a cinta. Si lo está, en cambio, CP/M 2.2 (cara 4 de 
los discos maestros). Los programas de ayuda CLOAD y CSAVE de CP/M 2.2 realizan 
estas funciones según se muestra en las tablas siguientes. 


Procedimientos de copia de ficheros 


En las tablas siguientes se describen los procedimientos de transferencia para todo tipo 
de ficheros entre disco y cinta. No se requiere tener conectada la segunda unidad de 
disco. Los programas de BASIC protegidos no pueden ser copiados de cinta a disco, 
ni viceversa; tampoco pueden serlo los ficheros binarios (tales como programas de jue- 
gos en código de máquina) si no se conocen las direcciones de carga. En la parte 2 de 
ese capítulo se da más información sobre los programas PIP, CLOAD y CSAVE. 
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x—NMAX<<AAAx (<a e 


COPIAR DESDE 


BASIC de Amstrad Datos ASCII Binario 
COPIAR HACIA en cinta * en cinta * en cinta * 
BASIC de Amstrad ¡TAPE 
en cinta * LOAD"FICH" 
(cambiar cinta) 
SAVE"FICH" 
DISC 
Binario H=HIMEM 
en cinta * 'TAPE 
MEMORY (p)-1 
LQAD"FICH" 
(cambiar cinta) 
SAVE"FICH",B, 
(9), (DL, (e) 
DISC 
MEMORY=H 
(nota 2) 
ASCII ¿TAPE insertar disco de CP/M 2,2) 
en cinta * LOAD"FICH" ¿CEM 
«cambiar cinta) CLOAD"FICH", TEMP 
SAVE"FICH",A ¿cambiar cinta) 
¿DISC CSAVE TEMP,"FICH" 
ERA TEMP 
AMSDOS 
(nota 1) 
BASIC de Amstrad TAPE 
en disco * LOAD"FICH" 
“DISC 
SAVE"FICH” 
ASCII 'TAFE “insertar disco de CP/M 2.2) 
en disco LOAD"FICH" ¿¡CPM 
¡DISC CLOAD"FICH" 
SAVE"FICH",A AMSDOS 
Binario H=HIMEM 
en disco 'TAPE 
MEMORY (p)-1 
LOAD"FICH" 
DISC 
SAVE"FICH",R, 
(9, <D1, (e)] 
MEMORY H 
nota 2) 


* Fichero con cabecera. 
(nota 1) Requiere espacio libre en el disco para el fichero transitorio “TEMP”. 


(nota 2) <p) es la dirección inicial del fichero, (1) es su longitud, (e) es la dirección opcional 
de ejecución. 
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BASIC de Amstrad 


COPIAR DESDE 


Datos ASCII Binario Amsdos Todos los demás 


COPIAR HACIA en disco * en disco en disco * en disco 
BASIC de Amstrad LOAD"FICH" 
en cinta * TAPE 
SAVE”"FICH" 
¿DISC 
Binario H=HIMEM 
en cinta * MEMORY (p)-4 
LOAD"FICH" 
¡TAPE 
SAVE"FICH",B, 
(p), (11, (0)] 
DISC 
MEMORY H 
(nota 2) 
ASCI LOAD"FICH" «insertar disco de CP/N 2.2) (insertar disco de CP/K 2.2) 
en cinta * ¡TAPE ¡CPM CCPM 
SAVE"FICH",A  CSAVE FICH CSAVE FICH 
DISC AMSDOS AMSDOS 
o bien £nota 3) 
(insertar disco de CPiN 2.2) 
¿CPM 
CSAVE FICH 
AMSDOS 
BASIC de Amstrad ¡ LOAD"FICH" 
en disco * (casbiar disco) 
| SAVE"FICH” 
: o bien 
(insertar disco de CP/M Plus) 
¡CPM 
PIP B:=FICH 
| AMSDOS 
ASCIHU LOAD"FICH" (insertar disco de CP/N Plus) 
en disco : (cambiar disco) ¡CPM 
| OSAVE"FICH",A PIP B:=FICH 
| AMSDOS 
Binario Amsdos | (insertar disco de CP/M Plus) 
en disco * ¿CPM 
PIP B:=FICH 
AMSDOS 
Todos los demás (insertar disco de CP/N Plus) 
en disco ¿CPM 
PIP B:=FICH 
AMSDOS 


* Fichero con cabecera. 
(nota 2) (p es la dirección inicial del fichero, (1) es su longitud, (e) es la dirección opcional 


de ejecución. 

(nota 3) El fichero destino no es utilizable directamente por BASIC. No obstante, esta opción 
es interesante como medio de almacenamiento a bajo costo. El fichero se puede volver 
a copiar en disco con CLOAD“FICH” (desde CP/M 2.2). 


e zm A 
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Guía de referencia de los mensajes de error 


Cuando AMSDOS no puede ejecutar una orden, emite un mensaje de error. Si el pro- 


blema es mecánico o radica en los circuitos, el mensaje de error va seguido de la 
pregunta: : 


Retry, Ignore or Cancel? 


R (reintentar) hace que se repita la operación, posiblemente después de que el usuario 
haya remediado el problema, 


l (ignorar) hace que el ordenador continúe como si nada hubiera ocurrido, lo que gene- 
ralmente da lugar a efectos inesperados y posiblemente indeseados. 


C (cancelar) hace que se cancele la Operación, lo que frecuentemente conduce a un nue- 
vo mensaje de error. 


Lista de errores 
Unknown command 

. .- la orden no ha sido tecleada correctamente. 
Bad command | 


. . . la orden no puede ser ejecutada por alguna razón; error de sintaxis o configuración 
inadecuada del sistema. 


¿nombre de fichero) already exists 


. . €l usuario ha intentado dar a un fichero el nombre de un fichero ya existente. 


(nombre de fichero) not found 

. ho existe ese fichero. 
Drive (unidad): directory full 

. nO Queda espacio en el directorio para una nueva reseña. 
Drive (unidad): disc full 


. NO Queda espacio en el disco para grabar nuevos datos. 
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Drive (unidad): disc changed, closing (nombre de fichero) 
. se ha cambiado el disco antes de cerrar el fichero; el ordenador lo cierra. 
(nombre de fichero) is read only 


. .. el fichero no se puede modificar porque es de “sólo lectura”. Los ficheros solamente 
se pueden caracterizar como de sólo lectura o de lectura/escritura desde CP/M. 


Drive (unidad): disc missing 


. no hay disco en la unidad, o el disco no está girando correctamente. La acción 
aconsejable es extraer el disco, insertarlo de nuevo y pulsar R. 


Drive (unidad): disc is write protected 


... se ha intentado escribir en un disco que tiene abierto el orificio de protección. Si 
efectivamente quiere utilizar ese disco, extráigalo, cierre el orificio de protección, insér- 
telo de nuevo y pulse R. 


Drive (unidad): read fail 


. . error en los circuitos de lectura. La acción aconsejable es extraer el disco, insertarlo 
de nuevo y pulsar R. 


Drive (unidad): write fail 


... error en los circuitos de escritura. La acción aconsejable es extraer el disco, inser- 
tarlo de nuevo y pulsar R. 


Failed to load CP/M 


... . error de lectura al intentar cargar CP/M con la orden ¡ CPM, o bien no se ha inser- 
tado un disco de sistema de CP/M válido. Cuando se intenta cargar CP/M con un disco 
que tenga formato “de datos” se genera el mensaje de error “Read fail. 


A 
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Parte 2: CP/M 


CP/M Plus 


Temas tratados: 


* Introducción a CP/M 

* Carga de CP/M Plus 

* Modo directo de consola 

* Programas de ayuda transitorios 
* Gestión de periféricos 

* CP/M 2.2 


CP/M Plus es un sistema operativo de disco. Es un programa especial que da acceso 
a la gran potencia del CPC6128. Aprovecha todos los 128K de RAM y deja libres más 
de 61K para los programas del usuario. CP/M permite el acceso aleatorio a los ficheros 


de datos; la implementación en el CPC6128 incluye un sofisticado emulador de 
consola. 


El hecho de que CP/M esté disponible para tan gran variedad de ordenadores hace que 
se hayan escrito millares de paquetes de aplicación, entre los que usted puede elegir los 
que mejor satisfagan sus necesidades. 


En la publicación *A Guide to CP/M Plus”, SOFT971, se da una descripción completa 
de CP/M Plus, junto con información detallada sobre cómo escribir sus propios pro- 
gramas y sobre la implementación de CP/M Plus en el Amstrad. Puede consultar tam- 
bién otras publicaciones de Amsoft y de otros editores sobre este tema. 


Introducción 


El sistema operativo CP/M proporciona un medio de comunicación entre el usuario 
y el sistema informático, incluidas las unidades de disco y otros periféricos. Ofrece ór- 
denes especiales (incorporadas en el sistema) y programas de ayuda (grabados en los 
discos) cuyo objetivo fundamental es ayudarle en la tarea principal y más frecuente: 
ejecutar los programas de las aplicaciones con sus propios datos. 


Desde luego, es posible adquirir gran experiencia en el manejo de CP/M y todos sus 
programas de ayuda. Tal experiencia puede ayudarle a salir de algún apuro. Pero la 
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realidad es que a la mayor parte de los usuarios les basta con saber cómo poner en mar- 
cha los programas. El resto de este capítulo estará dedicado a explicar las funciones 
y características fundamentales de CP/M, procurando evitar que el exceso de detalles 
oscurezca lo esencial. 


Del mismo modo que BASIC tiene su “modo directo” o “modo inmediato”, caracteriza- 
do por el mensje inductor Ready, CP/M tiene un “modo directo de consola”, identifi- 
cado por los mensajes A> o B>. El sistema dispone de ciertas órdenes incorporadas, 
pero la mayor parte del trabajo se realiza cargando y ejecutando “programas transito- 
rios”. Se les llama “transitorios? porque normalmente están en el disco y sólo se los car- 
ga en la memoria cuando se los va a utilizar. 


El sistema genera, además de los mensajes de error estándar de CP/M, cierto número 
de mensajes de error específicos de los circuitos, los cuales se distinguen por el hecho 
de que aparecen en la última línea de la pantalla en forma de “*cinta sin fin”. 


Situación de CP/M Plus en el disco 


La mayor parte de CP/M Plus reside en un fichero especial con distintivo de tipo 
.EMS, grabado en la cara 1 del juego de discos del sistema. El ordenador carga CP/M 
a partir de este fichero siguiendo un proceso de dos etapas. 


En primer lugar, la orden ¡CPM de AMSDOS carga el primer sector de la pista número 
O. En los discos con formato de sistema, este sector contiene un programa cuya única 
misión es cargar el fichero .EMS. El resto de las pistas del sistema no se utiliza. 


Arranque en frío 


Durante el proceso de carga, cuando se activa CP/M por primera vez, el sistema busca 
en el disco el fichero PROFILE.SUB. Si lo encuentra, ejecuta automáticamente las ins- 
trucciones contenidas en él. Así pues, incluyendo en el fichero PROFILE.SUB las ins- 
trucciones adecuadas, se puede automatizar la preparación del teclado, la inicialización 
de la impresora e incluso la puesta en marcha de una aplicación. En el capítulo 4 vimos 
cómo se cambia el nombre del fichero PROFILE (cara 1) para activarlo. 


Mientras está funcionando el fichero PROFILE.SUB se crea en el disco un pequeño 
fichero transitorio; así pues, el disco no puede estar protegido contra escritura. Ésta 
es la razón por la que el fichero PROFILE del disco maestro no puede ser reconocible, 
esto es, no puede tener el distintivo .EMS. 


Los ficheros PROFILE se pueden elaborar con un procesador de textos, con un editor 
de texto (tal como ED.COM) o incluso desde BASIC. El siguiente programa de BASIC 
podría haber sido utilizado para crear el fichero PROFILE.SUB: 
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19 OPENOUT "PROFILE.SUB* 

29 PRINT $9, "SETKEYS KEYS.CCP" 
39 PRINT $9, "LANGUAGE 3" 

49 CLOSEOUT 


Códigos de control de consola 


En CP/M se utilizan diversas teclas para controlar la evolución de los programas. Estas 
funciones reemplazan la acción que ejercen las teclas de movimiento del cursor y [ESC] 
en BASIC. Los códigos de control que relacionamos a continuación se asignan a las 
correspondientes teclas ejecutando la orden 


SETKEYS KEYS.CCP 


El programa transitorio SETKEYS.COM y el fichero KEYS.CCP se encuentran ambos 
en la cara 1 del juego de discos del sistema. 
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AS Tecla Función 
[CONTROLJA  |[-] Mover el cursor una posición hacia la izquierda 
[CONTROLIB_ [CONTROL] ¡+-] Llevar el cursor al principio de la línea; si ya está 
... O bien ... en esa posición, lo lleva al final de la línea 
[CONTROL] |>, 
[CONTROLIC [CONTROL] [ESC] Abandonar el programa 
[CONTROLJE [CONTROL] [RETURN] Retorno físico del carro 
[CONTROL]F Mover el cursor una posición hacia la derecha 
[CONTROLIG [CRL] Borrar el carácter que está en la posición actual 
del cursor 
[CONTROLIH  [-BORR] Borrar el carácter que está a la izquierda del cur- 
sor y mover éste una posición a la izquierda 
[CONTROL]! [TAB] Llevar el cursor al siguiente tope de tabulación 
[CONTROL]J Introducir línea de orden 
ICONTROLIK [CONTROL] [CLR] Borrar hasta el final de la línea 
[CONTROLIM [RETURN] Introducir línea de orden 
... O bien ... 
[INTRO] 
[CONTROLIP Báscula de la impresora. Activa y desactiva el 


envío a la impresora de toda la información 
que aparece en la pantalla 
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Código de 


Tecla Función 
control 

[CONTROLJO Reanudar el envío de información a la pantalla 

[CONTROLIR [CONTROL] [INTRO] Repetir la línea de orden actual : 

[CONTROL]JS [ESC] Detener el envío a la pantalla de la información 
generada por CP/M. Se reanuda con [CON- 
TROLJO 

[CONTROL]JU Ignorar la línea actual 

[CONTROL]W [COPIA] Repetir la última orden tecleada 


[CONTROL]JX [CONTROL] [+BORR] Borrar desde el principio de la línea hasta la po- 
sición actual del cursor 


[CONTROL]Z Fin del texto 


Nombres de ficheros 


Muchas de las órdenes de CP/M llevan como parámetros nombres de ficheros. En cier- 
tos casos se permite la inclusión de símbolos comodín (véase la sección “Símbolos 
comodín' en la parte 1 de este capítulo). El sistema convierte a mayúsculas todos los 
nombres de fichero. 

Las órdenes directas de consola y la mayor parte de los programas de ayuda no requie- 
ren que se escriban los nombres de ficheros entre comillas. 

Los nombres de los ficheros pueden incluir los prefijos A: o B: para obligar a CP/M 
a utilizar la unidad especificada. 


Una orden típica de CP/M es, por ejemplo, 
TYPE KEYS.CCP 


donde TYPE es el nombre de la función (“visualizar en la pantalla”) y KEYS.CCP es 
el nombre del fichero cuyo contenido queremos ver. 


Cambio de la unidad de disco implícita 


Si se tienen conectada la segunda unidad de disco, se puede especificar cual de las dos 
debe ser considerada como implícita. Para ello se escribe A: o B: en respuesta a los 
mensajes inductores B> o A>, respectivamente. El propio mensaje inductor indica en 
todo momento cuál es la unidad implícita. La inclusión de A: o B: como prefijos en 
los nombres de los ficheros obliga a utilizar la unidad especificada en una operación 
concreta, pero no modifica la unidad implícita. 
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Ordenes directas de consola 


Hay varias órdenes directas de consola que se pueden teclear en respuesta a los mensa- 
jes A> o B>. Estas órdenes pueden ser abreviadas. Las versiones simplificadas que 
vamos a estudiar sí están incorporadas en el sitema operativo, pero existen, con el mis- 
mo nombre, programas transitorios más complejos. 


DIR 


Escribe en la pantalla la lista del contenido del directorio. Los nombres de los ficheros 
no están ordenados según ningún criterio, sino en el orden en que están sus reseñas en 


el directorio. DIR admite símbolos comodín; no lista los ficheros que tengan el atributo 
“SYS”. 


DIR lista todos los ficheros de la unidad implicita 

DIR B: lista todos los ficheros de la unidad B: 

DIR %.BAS lista todos los ficheros del tipo .BAS 

DIR B:X.BAS lista todos los tocheros del tipo .BAS de la unidad B: 
DIR PIP.COM lista solamente el fichero PIP.COM (si existe) 


DIRSYS y DIRS 


Estas órdenes escriben la lista de los ficheros del disco que tienen el atributo “SYS?. 
Por lo demás funcionan igual que DIR. Más adelante describiremos el atributo SYS. 


ERASE o ERA 


Borra reseñas del directorio. Sólo se borra la reseña, de modo que los datos siguen es- 
tando en el disco hasta que se graben otros en su lugar; no obstante, la información 
es irrecuperable. ERA admite símbolos comodín; si se incluyen estos símbolos en el 
nombre de fichero, ERA pide que se le confirme que debe borrar todos los ficheros 
concordantes. ERA no lista los nombres de los ficheros que va borrando. Si alguno 
de los ficheros que se le ha pedido que borre es de “sólo lectura”, la orden queda inte- 
rrumpida. El atributo de “sólo lectura” será descrito más adelante. 


ERA PIP.COM borra el fichero PIP.COM 
ERA B:PIP.COM borra el fichero PIP.COM de la unidad B: 
ERA %,BAS borra todos los ficheros de tipo . BAS 
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RENAME o REN 


Cambia el nombre de un fichero ya existente. El primer nombre de fichero que se espe- 
cifica es el nuevo, seguido del signo = y del nombre antiguo. Si ya hay en el disco un 
fichero con el nombre nuevo, se emite un mensaje de error. Como orden incorporada 
al sistema, REN no admite símbolos comodín en los nombres de los ficheros; sí lo hace, 
en cambio, el programa transitorio RENAME.COM. 


REN FICHNUEV, BAS=FICHANTI.BAS da al fichero FICHANTI.BAS el nuevo 
sobre FICHNUEV. BAS 


REN B:FICHNUEV. BAS=FICHANTI.BAS da al fichero FICHANTI.BAS el nuevo 
nombre FICHNUEV.BAS en la unidad B: 


TYPE o TYP 


Envía a la pantalla el contenido del fichero especificado. Si el fichero no es un fichero 
ASCII de texto, se producirán efectos imprevisibles, quizá indeseables. 


TYPE KEYS, CCP 


exhibe el listado del programa KEYS.CCP. 


USER o USE 


El “número de usuario” es un método de partición del directorio mediante el cual se 
limita el acceso de distintos usuarios a sus correspondientes ficheros. Normalmente un 
fichero sólo es accesible si está identificado con el número actual de usuario. 


Los ficheros que hayan sido grabados en “usuario 0” y tengan el atributo *SYS” son 
accesibles desde todos los números de usuario; de esta forma, los programas de ayuda 
y de aplicación están al servicio de todos los usuarios sin necesidad de que cada uno 


tenga una copia en su propia área. 


La orden USER cambia el número actual de usuario. Por ejemplo, 


USER 3 


hace que el número de usuario sea el 3. 
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Ordenes transitorias 


Para realizar una gestión de ficheros más elaborada que la que permite el modo directo 
de consola es necesario recurrir a los diversos programas de ayuda disponibles. Estos 
programas se ejecutan sin más que escribir su nombre, en ocasiones seguido de algún 
nombre de fichero o de algún parámetro. El lector seguramente conocerá una de estas 
Órdenes transitorias: DISCKIT3. 


Las órdenes transitorias se dividen en los grupos indicados más abajo. La documenta- 
ción disponible sobre estos programas es muy amplia; el lector puede consultár los fi- 
cheros HELP (cara 3 del juego de discos del sistema) y la publicación 'A Guide to 
CP/M Plus”, SOFT971. 


Las órdenes transitorias DISCKIT, SETKEYS, SETLST, SETSIO, PALETTE, LAN- 
GUAGE y AMSDOS, así como los controladores de pantalla para GSX y la instala- 
ción de LOGO3, han sido diseñadas por Amstrad y funcionan solamente en este siste- 
ma. No son trasladables a ningún otro CP/M. En una misma línea se pueden incluir 
varias Órdenes separándolas con el signo de exclamación (D: 


LANGUAGE 3!SETKEYS KEYS. WP 


Gestión de periféricos 


DISCKIT3 es un programa completo para inicializar, copiar y comprobar discos. Es 
más rápido inicializar mientras se copia que inicializar primero y luego copiar. El pro- 
grama ofrece menúes que indican qué tecla (normalmente del teclado numérico) se debe 
pulsar para realizar cada función. El formato “comercial” (vendor) es un tipo especial 
de formato de sistema diseñado para la distribución comercial de programas. No obs- 
tante, los discos con formato “de datos” pueden ser más adecuados para ese fin. 


AVISO 


El acuerdo de licencia para su CP/M (que está codificado electrónicamente con 
un número de serie) permite su utilización en un solo ordenador. Esto significa, 
en particular, que está prohibido dar a otras personas una copia de su disco (la 
cual sería identificable por el número de serie). Puesto que todas las copias de la 
cara 1 llevan grabado su CP/M (en el fichero .EMS), tenga buen cuidado de no 
vender, intercambiar o de ninguna otra forma de enajenar discos con ese fichero 
en ellos. 


FOO | 


5/22 AMSDOS y CP/M 


LANGUAGE 


El CPC6128 tiene un juego de caracteres internacionales bastante completo. La orden 
LANGUAGE intercambia determinados grupos de caracteres para que los programas 
de aplicación puedan visualizar caracteres especiales y acentuados. En la parte'16 del 
capítulo titulado “Para su referencia? daremos más amplia información sobre este 


tema. 


La orden 


LANGUAGE 3 


adapta el ordenador para que escriba el juego de caracteres británico, cuya diferencia 
con el estándar (EE.UU.) está en el intercambio de los signos £ y +. 


Colores 


Los colores iniciales de CP/M Plus en el 6128 (con monitor de color) son el blanco in- 
tenso para los caracteres y el azul para el fondo. Pero estos colores se pueden modificar 
con la orden PALETTE, la cual va seguida de varios parámetros, uno para cada tinta. 
La tinta O es la del borde y el fondo; la tinta 1 es la de los caracteres. Cada color está 
descrito por un número (margen de 0 a 63) que caracteriza al mismo tiempo la intensi- 
dad perceptible en un monitor monocromático. 


Se puede especificar desde una hasta 16 tintas, pero sólo las dos primeras serán visibles 
en la pantalla de 80 columnas. 


La orden 
PALETTE 63,1 


invierte la situación normal de las tintas O y 1, pues da caracteres azules (1) sobre fondo 
blanco intenso (63). 


Utilice la tabla siguiente para elegir los colores (o las intensidades) que desee. Los nú- 
meros se pueden especificar en decimal o en hexadecimal. 
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Color Hex Dec Color Hex Dec 
Negro £00 0 Azul pastel $2B 43 
Azul $:02 2 Naranja $2C 44 
Azul intenso $03 3 Rosa $QE 46 
Rojo $08 8 Magenta pastel £2F 47 
Magenta S0A 10 Verde intenso $30 48 
Malva S0B 11 Verde mar $32 50 
Rojo intenso S0C 12 Cyan intenso $833 51 
Morado S0E 14 Verde lima $38 56 
Magenta intenso «0F 15 Verde pastel S£3JA 58 
Verde $20 32 Cyan pastel «3B 59 
Cyan $22 34 Amarillo intenso %3C 60 
Azul celeste %423 35 Amarillo pastel  $3E 62 
Amarillo «28 40 Blanco intenso «3F 63 
Blanco $QA 42 


El teclado 


Los códigos generados por el teclado pueden ser modificados mediante la orden 
SETKEYS. Esta orden permite asignar los valores deseados a las teclas o a los códigos 
expansibles. La lista de códigos debe encontrarse en un fichero, cuyo nombre se incluye 
luego como parámetro de SETKEYS. El fichero puede haber sido creado con ED, con 
PIP o incluso desde BASIC, Por ejemplo, una orden típica es 


SETKEYS KEYS.TST 
donde el fichero KEYS.TST contiene 


E £8C “DIR 1M” código expansible número 12 
8 NS C “1H” retroceso del cursor =[CONTROL]JH, ASCII 08 


que primero redefine el código expansible generado por [CONTROL] [INTRO] (repre- 
sentado por 8C) para asignarle la cadena DIR[IRETURNI, y luego la tecla de “cursor 
a la izquierda*([-], tecla número 8) para que genere un retroceso del cursor. 


Los ficheros KEYS estándar suministrados con el ordenador 6128 son: KEYS.CCP pa- 
ra la edición de órdenes de CP/M, KEYS.DRL para utilizar con Dr. LOGO (cara 3) 
y KEYS.WP, adecuado para muchos procesadores de texto. 


- 5/24 AMSDOS y CP/M 


Impresoras 


La inicialización de impresoras se puede realizar con la orden 
SETLST (nombrefichero) 


donde (nombrefichero» contiene la cadena de códigos que se debe enviar a la impreso- 
ra. Al igual que en los ficheros de SETKEYS, los códigos de control se pueden repre- 


sentar por: 


4 (caracter) 


o por 


+? (valor del caracter)? 


o bien por 
+? (nombre del codigo de control)” 


donde los «nombres del código de control)» son ESC, FF, etc., o sea, los que se mues- 


> 


tran en la tabla de caracteres ASCII del capítulo titulado “Para su referencia ...?. 


Un código de inicialización de impresoras muy frecuente es el 15 (decimal), que estable- 
ce el modo de escritura estrechada. 


En BASIC la orden sería 


PRINT $48, CHR$(15) 


En CP/M, 


SETLST ESTRECHA 


donde el fichero ESTRECHA debe contener cualquiera de las siguientes líneas: 


todas las cuales representan el código 15 (decimal). 
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Algunos programas de aplicación trabajan con la pantalla de 24x80. La orden 


SET24X89 


o bien 


SET24X89 ON 


seleciona el modo 24x80. La orden 


SET24x89 OFF 


lo anula. 


La pantalla normal en el 6128 es 24x80, con la última línea reservada para los mensajes 
de estado. La desactivación del modo 24x80 sólo será apreciable si también se deactiva 
la línea de estado. En la parte 15 del capítulo 7 se explica cómo activar y desactivar 
la línea de estado. 


Interfaz serie 


CP/M puede controlar un interfaz serie monocanal de entrada/salida (RS232). Sus ca- 
racterísticas fundamentales se pueden consultar ejecutando la orden SETSIO sin 
parámetros: 


SETSIO 


Se las puede modificar con esta misma orden incluyendo los siguientes parámetros (o 
algunos de ellos): 


SETSIO, RX 1299, TX 75, PARITY NONE, STOP 1, BITS 8, 
HANDSHAKE ON, XDFF OFF 


con lo que quedaría establecida una nueva configuración. 


Las características de velocidad de transmisión (RX) y de estado XON/XOFF pueden 
resultar afectadas por una de las acciones posibles de la orden DEVICE. Esta orden 
controla los dispositivos lógicos y físicos. Los dispositivos lógicos llevan como sufijo 
el signo de dos puntos (:). Para examinar los atributos actuales de los dispositivos se 
ejecuta la orden 


DEVICE 
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Los atributos se pueden modificar con órdenes tales como las siguientes: 


DEVICE SIO[i2093 establece la velocidad de 1200 bits por segundo para 
el interfaz serie 

DEVICE SIOLXONI activa el protocolo XON/XOFF 

DEVICE SIOINOXONI desactiva el protocolo XON/XOFF 


La correspondencia entre dispositivos lógicos y físicos también es modificable. Nor- 
malmente CON: es CRT (la consola, o sea, el teclado y la pantalla), AUX: es SIO (el 
interfaz serie opcional) y LST es LPT (el interfaz paralelo Centronics). La orden 


DEVICE LST:=SIO 


enviará al interfaz serie (si está conectado) la salida que normalmente iría a la 
impresora. 

Observe que esto es una reasignación de canales, que no se debe confundir con las fun- 
ciones de copia de ficheros realizadas por PIP. Las órdenes GET (nombrefichero» y 


PUT <nombrefichero> redirigen las entradas y salidas de la consola y la salida hacia 
la impresora para hacerles utilizar ficheros en lugar de controladores de dispositivo. 


PIP 


El programa de ayuda PIP (Peripheral Interchange Program, “programa de intercam- 
bio entre periféricos””) realiza el intercambio de información entre el ordenador y sus 


periféricos. 


La forma general de la orden es 


PIP (destino)=<fuente) 


La (fuente) y el (destino) pueden ser, o bien un dispositivo lógico, o bien nombres 
de ficheros; en este último caso se permiten símbolos comodín en la (fuente). Los dis- 
positivos lógicos utilizables son los siguientes: 


Como fuente Como destino 
CON: entrada por consola CON: salida por consola 
AUX: entrada auxiliar AUX: salida auxiliar 
-.EOF: indicador de fin de fichero LST: impresora 


PRN: impresora con gestión de tabu- 
ladores, números de línea y 
salto entre páginas 
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Ejemplos de utilización de PIP: 
PIP B:=A:%.COM 

copia todos los ficheros *.COM de la unidad A: a la B:. 
PIP TECLADO. CPM=KEYS.CCP 

hace una copia del fichero KEYS.CCP y le da el nombre de TECLADO.CPM. 
PIP CON: =KEYS.CCP 


envía el fichero KEYS.CCP a: la pantalla (efecto similar al de TYPE KEYS.CCP). 


PIP LST:=KEYS.CCP 
envía el fichero KEYS.CCP a la impresora. 


PIP ENTRADA. TXT=CON: 


capta caracteres por el teclado y los envía a un fichero llamado ENTRADA.TXT. 


Observe que, en este último ejemplo, el proceso se concluye con el código de control 
[CONTROLI]Z y que para pasar a la línea siguiente hay que pulsar siempre [CON- 
TROLIJ después de [RETURN]. [CONTROLIJ es el código ASCII del avance de línea. 


Cuando se escribe PIP sin parámetros, emite el mensaje inductor *, a continuación del 
cual se puede introducir las órdenes deseadas. Esta forma de funcionamiento es muy 
útil en el trabajo de copia de ficheros cuando no se tiene grabado el fichero PIP.COM 
en el disco fuente ni en el disco destino. El procedimiento consiste, pues, en cargar PIP 
con la cara 1 del juego de discos del sistema, extraer este disco y luego insertar los que 
hayan de intervenir en el proceso de copia. 


Para abandonar PIP basta con pulsar [RETURN] en respuesta al mensaje inductor *. 


Observe que PIP también puede copiar ficheros de un disco a otro en sistemas de una 
sola unidad; el programa avisa cuándo se debe cambiar el disco. Los indicadores de 
unidad de los ficheros fuente y destino deben ser diferentes. 


Gestión del sistema 


DIR, ERASE, RENAME y TYPE existen también como programas transitorios; en es- 
ta versión son más potentes que las correspondientes órdenes intrínsecas al sistema. Al 
igual que ocurre con otros programas transitorios suministrados por Digital Research, 
los parámetros secundarios se especifican entre corchetes. En los ficheros HELP de la 
cara 3 se da una explicación más completa. Veamos algunos ejemplos: 
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[ 


DIR [FULL 1 muestra todos los nombres de los ficheros,. 
con sus tamaños y atributos 

ERASE %.COM [CONFIRMI pide confirmación individual para cada fi- 
chero que encuentra, antes de borrarlo 


RENAME pregunta los nombres antiguo y nuevo del 
fichero 

RENAME %*.SAV=X. BAK cambia todos los distintivos de tipo de .BAK 
a .SAV 


TYPE KEYS.WP [NOPAGE 1 inhibe la paginación en la pantalla 


Ya hemos mencionado antes los atributos de SYS (sistema) y RO (sólo lectura). Estos 
y muchos atributos pueden ser asignados mediante la orden SET, la cual acepta símbo- 


los comodín. 


Las órdenes 


SET *.COM [ROJ 
SET KEYS.CCP [RO] 
SET A: [RO] 


asignan a los ficheros o a una unidad de disco el atributo RO (para prevenir el borrado 
accidental). 


Las órdenes 


SET *.COM [RW1 
SET KEYS.CCP [RW] 
SET A: [RW] 


devuelven a los ficheros o a la unidad de disco el atributo de “lectura/escritura”. 


Las órdenes 


SET X.COM [SsYS] 
SET KEYS.CCP [SYS] 


dan a los ficheros el atributo de “sistema”. Los ficheros que tienen este atributo no apa- 
recen en los listados generados por DIR (pero sí en los de DIRS y DIRSYS). No obstan- 
te, esos ficheros están disponibles a todos los demás efectos; e incluso, si están en el 
área de usuario número 0, están disponibles para todos los números de área de usuario. 


Las órdenes 


SET X.COM [DIR] 
SET KEYS.CCP [DIR] 


anulan el atributo de “sistema”. 
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A cada disco se le puede asignar una etiqueta o nombre (NAME) y también una clave 
(PASSWORD). La clave protege el directorio, no los ficheros. También se puede asig- 
nar claves a ficheros individuales. Las órdenes 


SET [NAME=JAVIER] 
SET [PASSWORD=SESAMO] 
SET IPROTECT=0N] 


actúan sobre el disco que está en la unidad implicita. 
Las órdenes 
SET *.*+[PASSWORD=SESAMO J 
SET *.%[PROTECT=READ]J 
actúan sobre ficheros de ese disco (*.* significa “todos los ficheros”). 
La estampación de fecha y hora se puede activar con INITDIR (cara 2 del juego de dis- 


cos del sistema). Las órdenes 


INITDIR 

SET [CREATE=0NMN]J ..2.2 Dn... SET [ACCESS=0MN] ... Y)... 
SET [UPDATE=ONJ]' ... junto con +»... 

DIR (FULL J 


inician y visualizan la estampación de fecha y hora del disco de la unidad implícita. 
La orden 


DATE SET 


será necesaria cada vez que se cargue CP/M Plus para comunicarle la fecha y la hora. 
Una vez puesto en hora, el reloj la actualiza con precisión razonable. Para consultarla 
se utiliza la orden 


DATE ... Y +... 
DATE CONTINUOUS 


ADVERTENCIA 


Cuando a un disco se le asigna nombre o clave, o se le estampa fecha y hora, en 
ese disco ya no debe escribir ni AMSDOS ni CP/M 2.2, pues estos sistemas no es- 
tán dotados de tales funciones. 
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Normalmente el sistema sólo accede a los ficheros del disco que está en la unidad implí- 
cita, salvo que se especifique otra unidad. Sin embargo, la orden 


SETDEF %*,A: 


(donde * representa la unidad implícita) instruye a CP/M para que en lo sucesivo, 
cuando esté buscando ficheros, lo haga primero en la unidad implícita y luego en la 
A:. Dicho de otra forma, si la unidad implícita es la B:, el fichero será encontrado si 
está en alguna de las dos unidades. 


Las órdenes 


SETDEF [PAGE] e... Y)... 
SETDEF [NOPAGE]J 


activan y desactivan la paginación en la pantalla (esto es, la pausa que el sistema hace 
automáticamente, en espera de que el usuario pulse una tecla, cuando la información 
emitida por la consola llena la pantalla). 


Recuerde que la mayor parte de las funciones realizadas por DEVICES, SET y 
SETDEF, en particular cuando afectan a las unidades de disco (en lugar de a fiche- 
ros o discos concretos), han de ser inicializadas, junto con la fecha, cada vez que se 
carga CP/M Plus. Esta tarea se presta perfectamente a ser programada en un fichero 
PROFILE.SUB adecuado. 


SUBMIT ejecuta grupos de órdenes individuales automáticamente. Las órdenes tienen 
que estar en un fichero de texto cuyo distintivo de tipo sea .SUB. Cada línea representa 
una orden; una línea puede ser la entrada a un programa si empieza con el signo <. 


Con las diferentes versiones de SHOW se puede obtener información sobre el tamaño de 
un disco, el espacio libre, el número de reseñas libres en el directorio, ficheros que hay en 
las distintas áreas de usuario, el nombre del disco, las características de la unidad, etc.: 


SHOW B: 

SHOW B: [LABEL 1] 
SHOW B: [USERS] 
SHOW B: [DIR] 
SHOW B: [DRIVE] 


Salida de CP/M 


La orden 


AMSDOS 


retira el control de CP/M y lo cede al BASIC de AMSTRAD, a través del cual se accede 
a las órdenes del sistema operativo de disco AMSDOS. 
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1 


Programación avanzada 


La cara 2 del juego de discos del sistema contiene diversos programas que han sido dise- 
ñados para ayudar a los programadores más expertos. Le sugerimos que consulte la 
publicación *A Guide to CP/M Plus', SOFT 971, o alguna otra obra de referencia. 


CP/M 2.2 


El objetivo de esta sección es poner de manifiesto las diferencias que hay entre CP/M 
Plus y CP/M 2.2. 


CP/M 2.2 se carga con las dos primeras pistas de un disco de sistema. El sector de auto- 
carga es diferente del que se utiliza para cargar CP/M Plus; es necesario no confundir- 
los. Aunque es posible utilizar discos con formato “comercial”, “IBM? y “de datos” en 
cualquier unidad de disco, es habitual limitar su uso a la segunda unidad. 


A menos que el programa tome medidas al efecto (tal como hace FILECOPY, por ejem- 
plo), CP/M 2.2 no permite escribir en un disco que no haya sido “reconocido” previa- 
mente. Por otra parte, CP/M 2.2 sólo comprueba el tipo de formato que tiene el disco 
(sistema, datos o IBM) cuando lo reconoce. En el caso de la unidad de disco incorpora- 
da (unidad A) esto ocurre cada vez que vuelve al modo directo de consola o cuando 
se teclea [CONTROL]IC en respuesta a los mensajes inductores A> o B>. En el caso 
de la unidad externa (unidad B), CP/M 2.2 reconoce el disco la primera vez que accede 
a él, después de reconocer el instalado en la unidad A. 


Si se intenta escribir en un disco que no ha sido reconocido, se provoca el error 


Bdos Err on (unidad): R/O 


Pulse una tecla cualquiera para continuar. Si además el nuevo disco es de formato dis- 
tinto, se producirá un error de lectura o de escritura. Pulse C para continuar. 


Si usted adquiere programas grabados en un disco con formato 'comercial”, puede, o 
bien copiarlo a un disco de sistema (de CP/M 2.2) mediante FILECOPY o PIP, o bien 
convertir el disco en un disco de sistema añadiéndole las pistas de su propio CP/M 2.2, 
para lo cual sirven los programas BOOTGEN y SYSGEN. Lea atentamente el “Acuer- 
do de Licencia para el Usuario Final” (apéndice 1 de este manual). 


SYSGEN (sin parámetros) es un programa copiador especial que solicita los discos 
fuente y destino y copia las pistas del sistema CP/M 2.2 del uno al otro. BOOTGEN 
copia la pista O del sector 1 (el cargador) y el sector de configuración de un disco a otro. 
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La orden DIR no acepta parámetros (aparte del indicativo de la unidad). Los nombres 
de los ficheros no son ordenados según ningún criterio, sino que aparecen en la pantalla 
en el mismo orden en que figuran sus reseñas en el directorio. 


STAT proporciona algunas de las funciones de SET y SHOW. Las órdenes 
STAT 
STAT A: 
STAT BE: 

muestran el estado del disco y el espacio libre. 


Las órdenes 


STAT *X.COM 
STAT DISC.BAS 
dan información más amplia acerca de ficheros concretos. 


Las órdenes 


STAT *X.COM $R/0 
S5TAT DISC.BAS $R/O 


asignan al fichero especificado el atributo de “sólo lectura”, de forma que no queda ser 
borrado accidentalmente. 


Las órdenes 


STAT *.COM $R/W 

STAT DISC.BAS *$R/W 
anulan el atributo de “sólo lectura? y activan el de “lectura/escritura?. 
Las órdenes 


STAT *X.COM +SYS 
STAT SECRETO.BAS $SYS 


asignan al fichero el atributo de “fichero de sistema” para hacerlo invisible a las opera- 
ciones de listado del directorio y de copia. El fichero seguirá disponible para todo lo 
demás. 

Las órdenes 


STAT *X.COM DIR 
S5TAT SECRETO.BAS *$DIR 


asignan al fichero el atributo de “directorio”, anulando el de “sistema”. 
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El programa de ayuda FILECOPY permite copiar ficheros de un disco a otro en siste- 
mas de una sola unidad de disco. Informa al usuario de cuándo debe intercambiar los 
discos y le da instrucciones completas a través de la pantalla. Si se incluyen símbolos 
comodín en los nombres de los ficheros, FILECOPY pide confirmación de que efectiva- 
mente se desea copiar cada uno de los ficheros encontrados. El programa escribe los 
nombres de los ficheros a medida que los va copiando. Ejemplos: 


FILECOPY %. COM 


copia todos los ficheros del tipo .COM. 


FILECOPY PIP.COM 


copia el fichero PIP.COM. 


DISCKIT2 realiza las mismas funciones que DISCKIT3, pero es algo más lento en la 
copia de discos ya que dispone de menos espacio de memoria. 


Hay dos programas de ayuda que realizan la transferencia entre disco y cinta. Salvo 
para el usuario especialista, lo normal es que sólo tenga interés transferir ficheros de 
texto (ASCID. 


CLOAD puede llevar dos parámetros. El primero es el nombre del fichero origen (cin- 
ta), entre comillas; el segundo es el nombre del fichero destino (disco). Si se omite el 
segundo parámetro, el fichero destino tendrá el mismo nombre que el fichero origen; 
en tal caso el nombre tendrá que ajustarse a las normas de CP/M. Si se omite el nombre 
del fichero origen, CLOAD lee el primero que encuentra en la cinta. Si el primer carác- 
ter del nombre es el signo de admiración (!), se suprimen los mensajes habituales del 
sistema de cinta. 


Ejemplo: 
CLOAD "MI CARTA” MICARTA.TEXT 


CSAVE puede llevar tres parámetros. El primero es el nombre del fichero origen (dis- 
co); el segundo es el nombre del fichero destino (cinta), entre comillas. Si se omite el 
segundo parámetro, el fichero se grabará en la cinta con el mismo nombre que tiene 
en el disco. Si el primer carácter del nombre del fichero destino es el signo de admira- 
ción (1), se suprimen los mensajes habituales del sistema de cinta. Si se especifican am- 
bos nombres, se puede incluir un tercer parámetro para indicar la velocidad de transfe- 
rencia de datos a la cinta: O para 1000 bits por segundo o 1 para 2000 bits por segundo. 


Ejemplos: 
CSAVE TEXTSAL.TXT "TEXTO SALIDA" 1 
CSAVE FICHEDAT 


A A _ _ —__ 
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SETUP 


Este programa permite redefinir las características del teclado del CPC6128, del siste- 
ma de disco y del interfaz serie. También permite realizar diversas acciones cuando se 
carga CP/M 2.2. A diferencia de otros programas de ayuda, que realizan sus funciones 
cuando se los ejecuta, SETUP modifica el sector de configuración del disco (el cual 
sólo es invocado en los arranques en frío). En este aspecto, SETUP ejerce una acción 


similar a la de PROFILE.SUB de CP/M Plus. 
El programa es controlado por menú; cuando una pantalla es correcta o no requiere 
modificación, se pasa a la siguiente respondiendo Y a la pregunta: 


ls this correct (Y/N):_ 


(*¿Es esto correcto?) Se puede interrumpir el programa pulsando [CONTROLJC. Una 
vez completos los cambios, el programa pregunta: ¿ 


Do you want to update your system disc (Y/N):_ 


(* ¿Quiere actualizar el disco de sistema?”) Esto da la oportunidad de conservar el sector 
de configuración existente pulsando N. También pregunta: 


Do you want to restart CP/M (Y/N)2_ 


lo que permite cargar y probar la nueva configuración pulsando Y. 


Para copiar el sector de configuración en otro disco hay dos procedimientos: uno con- 
siste en ejecutar BOOTGEN (véase más abajo); el otro, en cargar SETUP con el disco 
origen, responder con Y a todas las preguntas e insertar el disco destino antes de res-. 


ponder a la penúltima: 


Do you want to update your system disc (Y/N):_ 


Los caracteres de código ASCII inferior a 32 (decimal) se pueden introducir en las cade- 
nas literales tecleando el signo 1 antes del carácter correpondiente, tomado del conjun- 


to (O, A-Z,[,1,1, >, —. 
Las dos opciones siguientes son las que normalmente requieren mayor atención: 


4% Initial command buffer: 


(“Tampón de ordenes iniciales”). Los caracteres introducidos tendrán el mismo efecto 
que si se los teclease en modo directo de consola inmediatamente después de cargar. 
CP/M, es decir, ejecutan automáticamente un programa en ese momento. No olvide 
incluir el equivalente a [RETURN], que se representa con los caracteres 1M. 


AMSDOS y CP/M 5/35 


Así, para ejecutar automáticamente DIR, el tampón de ordenes iniciales debe contener 


DIR+M 


Para cargar Dr. LOGO, 


SUBMIT LOGO24+M 


El mensaje 
Sign-on string: 


es el que aparece en la parte superior de la pantalla cuando se carga CP/M 2.2. Observe 
los caracteres ?JfM, que producen el retorno del carro y el avance de línea. La primera 
parte del mensaje estándar establece los colores de la pantalla y el borde para trabajar 
con 80 columnas; cópielos literalmente si desea conservar estas características. 


Keyboard translations! 


(Adaptación del teclado”). Permite asignar nuevos valores ASCII a las teclas, simulan- 
do así el efecto de la orden KEY DEF de BASIC. Los parámetros requeridos son los 
números de las teclas y los valores ASCII asignados. Los números de las teclas están 
ilustrados en el diagrama que hay grabado a la derecha del teclado, y también en la 
parte 4 del capítulo “Para su referencia ...?. 


Keyboard expansions: 


(“Programación de teclas”). Simula el efecto de la orden KEY de BASIC. 


Para terminar ... 


Los programas DISCKIT2, SYSGEN, BOOTGEN, FILECOPY, SETUP, CSAVE y 
CLOAD han sido diseñados por Amstrad y funcionan solamente con CP/M 2.2 en el 
sistema Amstrad. Son incompatibles con otras versiones de CP/M, aunque los demás 
fabricantes suelen ofrecer programas similares (a menudo con los mismos nombres) es- 
critos para sus máquinas. 


En la cara 4 se incluyen varios programas de CP/M 2.2 destinados a los usuarios más 
expertos. Le sugerimos que consulte la publicación *A Guide to CP/M?”, SOFTIS9, u 
otras obras de referencia. Los programas son los siguientes: 
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AMS Ensamblador para 8080. 

DDT Programa de ayuda para la depuración de programas escritos en 
ensamblador 8080. 

DUMP Programa para el volcado de ficheros en hexadecimal. 

ED Editor sencillo de texto. 

LOAD Para convertir un fichero .HEX generado por ASM en un fichero 


.COM. 
MOVCPM Para cargar CP/M 2.2 en una posición de memoria más baja que 


la estándar (para reducir el tamaño del TPA). 
SUBMIT Procesador por lotes en modo de consola. 
XSUB Procesador por lotes para programas transitorios. 


Estos programas están grabados en la cara 4 y sólo pueden ser utilizados con CP/M 
2.2. Evite confundirlos con otros programas de CP/M Plus (caras 1, 2 y 3). 


A AAA A A AAA A 
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Capítulo 6 
Introducción a LOGO 


En esta sección vamos a presentar los conceptos básicos de LOGO, apo- 
yados en ejemplos, y a dar la relación de las instrucciones disponibles. 
No pretende ser un libro de texto ni una guía de referencia exhaustiva. 
Le sugerimos que consulte las diversas publicaciones de Amsoft y de 


otros editores sobre este tema. 


Temas tratados: 


* Concepto de LOGO 

* Carga y ejecución de Dr. LOGO ., 
* Gráficos de tortuga 

* Escritura de procedimientos 

* Edición de procedimientos 


¿Qué es LOGO? 


LOGO es un lenguaje de programación que está ganando rápidamente gran populari- 
dad por lo fácil que es de aprender y de usar. 

Es el lenguaje ideal para aprender las técnicas de programación, cualquiera que sea su 
experiencia. 

Los programas de LOGO se construyen por bloques a base de procedimientos. El pro- 
pio Dr. LOGO es una colección de procedimientos, denominados primitivas, que el 
programador combina para formar sus programas. 

Durante la década de los 70, un grupo de informáticos y educadores, dirigidos por Sey- 
mour Papert, desarrolló el lenguaje LOGO, con sus gráficos de tortuga, como medio 
de aprendizaje de la informática destinado a niños muy pequeños. 


Incluyeron la tortuga para que los jóvenes estudiantes tuvieran, como dice Papert, “un 
objeto con el que pensar, una herramienta que les ayudara a aprender de forma 
innovadora”. 

La tortuga, un dibujo con forma de punta de flecha, puede ser movida por la pantalla 
y controlada con órdenes muy sencillas. 


A xx _— == O KK 22 


Introducción a LOGO 0/1 


——__n—— _—_— o — Q_QaQ_ — 


Dr. LOGO 


Dr. LOGO es una bien meditada implementación de LOGO que ha sido especialmente 
adaptada al ordenador AMSTRAD para hacerla aun más fácil de programar. Incluye 
ampliaciones del lenguaje con las que se puede aprovechar la capacidad sonora del 


CPC6128; la edición de los programas se facilita al poderse utilizar las teclas de movi- 
miento del cursor. 


Carga de LOGO 


Para cargar Dr. LOGO, inserte en la unidad de disco una copia de la cara 1 del juego 
de discos del sistema y escriba 


¿CPM 


Cuando aparezca el mensaje A>, extraiga el disco (cara 1) e inserte una copia de la 
cara 3 (Dr. LOGO y HELP). 


Para ejecutar Dr. LOGO escriba 
SUBMIT LOGOz3 


Al cabo de unos segundos aparecerá el mensaje de presentación, seguido del inductor, 
que en LOGO es el signo de interrogación ?. 


Dr. LOGO para CP/M 2.2 


Nota. En la cara 4 del juego de discos del sistema hemos incluido otra versión de 
Dr. LOGO por si usted necesitara utilizar este lenguaje con CP/M 2.2 (que es el 
disponible en los modelos CPC664 y CPC464+4DDI1). En general, no es deseable 
utilizar la versión de LOGO de la cara 4 en el CPC6128. La versión recomendada, 
esto es, la de la cara 3, es la versión completa del Dr. LOGO de Digital Research. 


Si a pesar de todo quiere cargar la versión de CP/M 2.2, inserte en la unidad una 
copia de la cara 4 y escriba 


¡CPM 
Cuando aparezca el mensaje A>, escriba 


SUBMIT LOGO2 


Al cabo de unos segundos aparecerá el mensaje de presentación, seguido del men- 
saje inductor, ?. 
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Primeros pasos 


El mensaje ? indica que Dr. LOGO está esperando que usted escriba algo en el teclado. 


Escriba (en minúsculas) lo siguiente: 


td 69 


y verá cómo aparece la tortuga y cómo se mueve hacia delante 60 unidades, dibujando 
al mismo tiempo. La pantalla se ha borrado y ha reservado una zona amplia para los 
gráficos y una más pequeña para el texto, con el signo ? cerca del borde inferior de 


la pantalla. 


Dr. LOGO decide en ocasiones redistribuir la pantalla para asignar mayor superficie 
a los gráficos o al texto, según convenga. 


Escriba: 
rt 99 


y la tortuga girará 90 grados hacia la derecha. 


Escriba ahora: 


fd 69 
y verá cómo la tortuga dibuja otra recta de 60 unidades de longitud perpendicular a 
la primera. 


Experimente con estas sencillas instrucciones, fd (de forward, adelante), bk (de back- 
ward, atrás), rt (de right, derecha) y It (de left, izquierda), y observe la pantalla. 


Procedimientos en Dr. LOGO 


Un procedimiento es una lista de instrucciones que explica a Dr. LOGO cómo realizar 
cierta tarea. 


Los procedimientos que usted escriba irán ampliando la lista de los incorporados a Dr. 
LOGO, que son las denominadas primitivas. 


fd, bk, rt y It son primitivas incorporadas que se pueden incluir en nuevos 
procedimientos. 


Otra primitiva útil es es, que borra la pantalla y envía la tortuga a su situación (posi- 
ción y orientación) inicial. 
A E AAA A E A 
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Un procedimiento sencillo 


Fácilmente se comprende que si repetimos cuatro veces las instrucciones 
fd 698 rt 98 


obtendremos un cuadrado de 60 unidades de lado. 
El mismo efecto se consigue escribiendo 


repeat 4 [+td 69 rt 99] 


(repeat=repetir). Borre la pantalla, teclee esta instrucción y Observe qué ocurre. 
Podemos asignar esa fórmula a un nuevo procedimiento, que denominaremos cuadra- 
do. Escriba lo siguiente: 


to cuadrado 
repeat 4 [fd 68 rt 98] 
end 


A partir de ahora, Dr. LOGO entenderá cuadrado como si fuera una primitiva; cada 
vez que encuentre esa palabra, dibujará un cuadrado. Al procedimiento le podríamos 
haber dado cualquier otro nombre, pero éste nos recuerda cuál es la tarea que el proce- 
dimiento realiza. 


Dr. LOGO permite que se teclee una serie de instrucciones seguidas, en una misma lí- 
nea. Así, 


cuadrado rt 45 cuadrado 


dibuja dos cuadrados intercalando un giro de 45 grados entre ellos. 


Procedimientos con parámetros 


Un procedimiento como el que acabamos de definir no nos serviría de mucho si no pu- 
diéramos decirle de qué tamaño queremos que sea el cuadrado. Para ello podemos defi- 
nir nuestro procedimiento de la siguiente manera: 


to cualquiercuadrado :lado 
repeat 4 [fd :lado rt 98] 
end 


con lo que hemos introducido la idea de variable, llamada, en este caso, :lado. 


Observe que el nombre va precedido del signo de dos puntos, lo que indica a Dr. LOGO 
que :lado es una variable, no una orden. 


A AAA <<=———=—=—==—= 
6/4 Introducción a LOGO 


A q 
Cuando utilicemos este procedimiento, tendremos que suministrarle un valor de entra- 


_ da, Por ejemplo, cualquiercuadrado 150 dibujará un cuadrado de 150 unidades de lado. 


Enlacemos ahora dos procedimientos: 


cs cualguiercuadrado 199 rt 45 cualquiercuadrado 159 


La tortuga ha dibujado los dos cuadrados, girando el segundo 45 grados con respecto 
al primero. 

Observe que Dr. LOGO escribe el signo de admiración ! para indicar que una línea es 
continuación de la anterior. 


Utilización de variables para recordar valores 


Dr. LOGO utiliza las variables, no sólo para recordar valores, sino también para sumi- 
nistrar valores de entrada a los procedimientos. 


Empecemos por definir un nuevo procedimiento: 


to triangulo 
repeat 3 [fd :lado rt 129] 


end 
Para probarlo podemos escribir: 


make "lado 199 
triangulo 


(make=hacer). 


Si queremos averiguar qué valor tiene asignado actualmente la variable :lado, basta 
con que tecleemos :lado a la derecha de ? y Dr. LOGO escribirá su valor. 


También podemos utilizar la variable :lado en un procedimiento distinto. Observe en 
“el siguiente procedimiento cómo vamos incrementando el valor de :lado a cada paso 
para que el dibujo vaya siendo cada vez mayor: 


to dibujo : 
triangulo 1t 69 triangulo rt 69: 
make "lado :lado+4 

dibujo 

end 

make "lado 19 

cs dibujo 


Pulse [ESC] cuando quiera detener el programa. 


e 
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Edición de programas y procedimientos 


Dr. LOGO permite corregir los errores de mecanografía y modificar los procedimien- 
tos definidos previamente. Las teclas de edición son los siguientes: 


Las teclas del cursor, [1][4][][>), que mueven el cursor carácter o línea a línea. 


Las teclas del cursor, [1] [1][+] [2), combinadas con [CONTROL], llevan el cursor al 
principio o al final de la página, o a la izquierda o a la derecha de la línea. 


[CLR] borra el carácter que está en la posición del cursor; [BORRAR] borra el carácter 
que está a la izquierda del cursor. 


[RETURN] indica a Dr. LOGO que se ha terminado de editar una línea de órdenes; 
cuando se está editando un procedimiento, intercala una línea en blanco. 


[ESC] abandona la edición. 
[COPIA] indica a Dr. LOGO que ha terminado la edición del procedimiento. 


Cuando esté introduciendo órdenes o procedimientos nuevos, corrija el texto de la línea 
actual con las teclas descritas. Todos los caracteres que teclee, a excepción de los men- 
cionados, serán insertados en la posición del cursor. 


Para editar un procedimiento definido previamente, utilice la orden ed. Dr. LOGO es- 
cribe la versión antigua del procedimiento y permite que se utilicen los recursos descri- 
tos para mover el cursor por la pantalla y modificar lo que se desee. 


Modifique el procedimiento dibujo tecleando 
ed "dibujo 
Practique con las diferentes teclas de edición. Cuando haya terminado, pulse [ESC]; 


Dr. LOGO abandonará lo que hay en la pantalla y conservará la versión anterior del 
procedimiento. 


Teclee otra vez. ed “dibujo, ponga un 8 en lugar del 4, pulse [COPY] para terminar 
la edición y vuelva a ejecutar el procedimiento para obsevar el efecto de la modifica- 
ción. No olvide asignar un valor inicial a :lado. 


Sugerencias para el trabajo con Dr. LOGO 


La memoria utilizada por Dr. LOGO está dividida en nodos. Para averiguar cuántos 
quedan libres escriba: 


nodes 
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En ocasiones, cuando Dr. LOGO ha utilizado casi todos los nodos disponibles, dedica 
unos instantes a reorganizar la memoria, durante los cuales se puede observar cómo 
se para la tortuga. El usuario puede pedir a Dr. LOGO que reorganice la memoria es- 


cribiendo la orden 


recycle 
Esto generalmente permite continuar después de que Dr. LOGO se haya quejado de 
que no le quedan más nodos libres. 


Si piensa grabar sus procedimientos en disco, asegúrese antes de que en el disco haya 
suficiente espacio libre. Puede para ello utilizar la orden CAT de AMSDOS (véase la 


parte 7 del “Curso de introducción”). 


Eche un vistazo a las páginas siguientes y pruebe alguno de los ejemplos; no espere en- 
tenderlo todo al primer intento. A medida que vaya familiarizándose con Dr. LOGO 
irá siendo capaz de utilizar nuevas instrucciones. 


Cuando desee concluir su sesión de trabajo con Dr. LOGO escriba: 


bye 


Lista de las primitivas de Dr. LOGO 


En esta sección damos la relación de las primitivas de Dr. LOGO, agrupadas en clases 
y ordenadas alfabéticamente dentro de cada grupo. Para la mayor parte de ellas se in- 
cluyen ejemplos de aplicación. 


Nota 


Las primitivas que en esta lista aparecen marcadas con un asterisco (*) no están 
disponibles en la versión de Dr. LOGO para CP/M 2.2 (cara 4 del juego de discos 
del sistema). Por consiguiente, los programas que utilicen esas primitivas no serán 
ejecutables en el CPC664 ni en el CPC464+DDII, en los cuales sólo se puede utili- 
zar CP/M 2.2 (no CP/M Plus). 


Proceso de palabras y listas 


(Observe que en los ejemplos hemos incluido los signos ? y > donde corresponde.) 
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ascii 


Da el código ASCII del primer carácter de la palabra de entrada. 


Pascii "G 
71 

Pascii "g 
193 


bf 


(but first, todos menos el primero). Da como salida todos los caracteres de la entrada, 
salvo el primero. 


?b+ "trama 
rama 
?bF+ [1 2 3] 
[2 3] 


bl 


(but last, todos menos el último). Da como salida todos los caracteres de la entrada, 
salvo el último. 


?b1 "tramas 
trama 

?b1] [1 2 3 4] 
[1 2 31] 


char 


Da el carácter cuyo código ASCII es el número de entrada. 
?char 83 


S 


count 


(contar). Da el número de elementos de que consta el objeto de entrada. 


?count "dos 
3 


count [9 1 2 3] 
4 
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emptyp 


(empty property, propiedad de vacío). Da como salida TRUE (verdadero) si la entrada 
es una palabra vacía o una lista vacía, y FALSE (falso) en caso contrario. 

?emptyp " 
TRUE 
?emptyp [1 
TRUE 
?emptyp [x1 
FALSE 
make "x [1] 
emptyp :Xx 
TRUE 


first 


(primero). Da como salida el primer elemento del objeto de entrada (sin tener en cuenta 
los corchetes). 


first "kilo 

k 

Pfirst [1 2 3] 
1 


fput 


(Jirsput, poner el primero). Da como salida un objeto formado poniendo el primer ob- 
jeto de entrada como primer elemento del segundo objeto de entrada. 


Pfput "t "rama 
trama 

Pfput 1 [2 3] 
[1 2 3] 


item 
(elemento). Da como salida el elemento especificado del objeto de entrada. 


P?item 4 "grande 
n 
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last (+) 


(último). Da como salida el último elemento del objeto de entrada (cfr. first). 


?last "pez 
z 


le (+) 


(lower case, minúsculas). Da como salida la palabra de entrada, pero convirtiendo las 
mayúsculas a minúsculas. (Véase también uc.) 


?2lc "NortE 
norte 


list 


Da como salida una lista consistente en los objetos de entrada; conserva los corchetes 
externos de la lista (compárese con se). 


?ílist 1234) 

[1 2 3 4] 

?list "garcia [javier] 
[garcia [javier])] 
?(list) 

1] 


listp (*) 


(list property, propiedad de lista). Da como salida TRUE (verdadero) si la entrada es 
una lista, y FALSE (falso) en caso contrario. 


?listp "madre 
FALSE 


?listp [padre hermano hermana] 
TRUE 
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Iput (+) 


(last put, poner el último.) Da como salida un objeto formado poniendo el primer obje- 
to de entrada como último elemento del segundo objeto de entrada. 


?lput "r "recto 
rector 

?lput "r [rectol 
[recto r] 


. memberp (+) 


(member property, propiedad de pertenencia). Da como salida TRUE (verdadero) si el 
primer objeto de entrada es un elemento del segundo objeto de entrada, y FALSE en 


caso contrario. 


?memberp "b "palabra 


TRUE 
?memberp "chocolate [[vainillallchocolatellfresalJ] 


FALSE 
?memberp [chocolate] [[vainillallchocolatellfresal] 


TRUE 


numberp 


(number property, propiedad de número). Da como salida TRUE (verdadero) si el ob- 
jeto de entrada es un número, y FALSE (falso) en caso contrario. 


?numberp 374.926 

TRUE 

?numberp "siete 

FALSE 

?numberp first [2 4 6 8] 


TRUE 


piece (*) 


Da como salida un objeto consistente en los elementos especificados del objeto de 
entrada. 


?piece 2 5 "procedimiento 


roce 
?piece 3 5 [Tito Juan Miguel Margarita Pacol 


[Miguel Margarita Pacol 


o e 5 5 — ___——K—KÉ< 


Introducción a LOGO 6/11 


A q 


se 


(sentence, frase). Da como salida una lista consistente en todos los objetos de entrada; 
elimina los corchetes externos de la lista (compárese con list). 


?make "lista_instrucciones rl 
repeat 4 [+d 598 rt 94] 


Prun (se "cs ¿lista_instrucciones "ht) 


El signo de subrayar que figura entre lista e instrucciones se obtiene con [SHIFT]O. 


shuffle 1) 


(barajar). Da como salida una lista que consta de los mismos elementos que la lista de 
entrada, pero dispuestos en orden aleatorio. 


?shuffle la b e d] 
lc b dal 
uc (*) 


(upper case, mayúsculas). Da como salida la palabra de entrada, pero convirtiendo las 
minúsculas a mayúsculas. (Véase también lc.) 


uc "Letras 
LETRAS 


where (*) 


(dónde). Da como salida el número calculado en la expresión memberp más reciente 
que haya dado resultado TRUE. 


?memberp "r "Amstrad 
TRUE 
?show where 
5 
word 


(palabra). Da una palabra formada con las palabras de entrada. 


?word "nueva "mente 
nuevamente 


A e OD y 
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wordp 


Da como salida TRUE (verdadero) si el objeto de entrada es una palabra o un número. 


?wordp "hola 
TRUE 

?wordp [1] 
FALSE 


Operaciones aritméticas 


arctan (*) 


Da como salida el arco (en grados) cuya tangente es el número de entrada. 


P?arctan 8 
g 
P?arctan 1 
45 


cos 


Da como salida el coseno del ángulo de entrada (considerado en grados). 


?cos 68 
g » Ss 
int 
Da la parte entera del número de entrada. 


Pint 4/3 
1 


quotient (*) 


(cociente). Da el cociente de la división entera de los dos números de entrada. 


?quotient 14 4 
3 

?214/4 

3.5 
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random 
Da un entero aleatorio no negativo menor que el número de entrada. 
?random 29 
7 
remainder (*) 


(resto). Da el resto de la división entera de los dos números de entrada, (el primero divi- 
dido por el segundo). 


?remainder 7 3 
1 
?remainder 8 4 
g 


rerandom (*) 


Hace que una expresión random ulterior reproduzca la misma sucesión aleatoria 
(char 9 es un tabulador horizontal para espacios.) 


?repeat 18 [(type random 19 char 9)] 


3 7 5 3 2 g 4 2 6 
?repeat 19 [(type random 19 char 9)] 

9 9 1 g 6 1 3 5 1 
?rerandom 
“repeat 19 [(type random 19 char 9)] 

2 9 g 3 1 6 2 3 7 
?rerandom 
?repeat 189 [ (type random 19 char 9)] 

2 9 g 3 1 6 2 3 ? 

round (*) 


(redondear). Da como salida el número de entrada redondeado al entero más próximo. 


?round 3.333333 
3 

?round 3.5 

4 
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sin 
Da como salida el seno del ángulo de entrada (considerado en grados). 


?sin 39 
g.5 


+ 

Da la suma de los números de entrada. 
74 22 
4 


22+2 
4 


Da la diferencia de los dos números de entrada. 


?- 18 3 
3 

219-35 

E] 


* 
Da el producto de los números de entrada. 


7 46 
24 
746 
24 


/ 


Da el cociente de los dos números de entrada. 


?2/ 23 5 
E] 

P25/5 
E] 


Introducción a LOGO 6/15 


Operaciones lógicas 


and 


Da como salida TRUE (verdadero) si el valor lógico de todas las expresiones de entrada 
es “verdadero”, y FALSE (falso) en cualquier otro caso. 


Pand (3<4) (774) 
TRUE 


not 


Da como salida TRUE si la expresión de entrada es “falsa”. 


Da como salida FALSE si la expresión de entrada es “verdadera”. 


?not (3=4) 
TRUE 
?not (3=3) 
FALSE 


or 


Da como salida FALSE (falso) si todas las expresiones de entrada son “falsas”, y TRUE 
en cualquier otro caso. 


?or "TRUE "FALSE 
TRUE 

Por (3=4) (1=2) 
FALSE 


Da como salida TRUE (verdadero) si los dos objetos de entrada son iguales, y FALSE 
en caso contrario. 


?= "LOGO "LOGO 
TRUE 
?1=2 
FALSE 
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> 


Da como salida TRUE (verdadero) si la primera palabra de entrada es mayor que la 
segunda, y FALSE en caso contrario. 


2>19 29 
FALSE 
229319 
TRUE 


< 


Da como salida TRUE (verdadero) si la primera palabra de entrada es menor que la 
segunda, y FALSE en caso contrario. 


2% 27 13 
FALSE 
213<27 
TRUE 


Variables 


local 


Hace que la variable o variables de entrada sean accesibles solamente al procedimiento 
actual y a los procedimientos por él invocados. 


>(local "x "y "z) 


make 


(hacer). Asigna a la variable de entrada el valor del objeto de entrada. 


“make "lado 59 
P:lado 
59 


namep (*) 


(name property, propiedad de nombre). Da como salida TRUE (verdadero) si la pala- 
bra de entrada es el nombre de una variable, y FALSE en caso contrario. 
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?make "sabor "chocolate 
P:sabor 

chocolate 

?namep "sabor 

TRUE 

?namep "chocolate 

FALSE 


thing (*) 
(cosa). Da el valor de la variable citada. 


make "ordenador "amstrad 
?thing "ordenador 
amstrad 


Procedimientos 


define (*) 


(definir). Toma como definición del procedimiento especificado la lista de entrada 


?define "cuadrado [[J] [repeat 4 [fd 59 rt 98]]] 
?po "cuadrado 

to cuadrado 

repeat 4 [ fd 59 rt 99 ] 

end 

?text "cuadrado 

[[J] [repeat 4 [fd 59 rt 99J]] 


end 


Indica el final de la definición de un procedimiento; la palabra end debe figurar sola 
al principio de la última línea. 


?to cuadrado 

repeat 4 [+d 59 rt ?9]) 
send 

cuadrado defined 
P?cuadrado 


—  -_--- --- e 
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po 


(print out, listar). Da el listado de la definición de los procedimientos o variables 
especificados. 


?po "cuadrado 
to cuadrado 


repeat 4 [fd 59 rt 991 


pots 


end 

¿make "x 3 
?po ”"x 

x is 3 


(print out titles, listar títulos). Da la lista de los nombres y títulos de todos los procedi- 
mientos que hay en el espacio de trabajo. 


pots 


text (*) 


Da la lista de la definición del procedimiento especificado. 


to 


?to estrella ¡estrella de cinco puntas 
>repeat 5 [fd 39 rt 144 fd 39 1t 72] 

>end 

estrella defined 

?text "estrella 

([1 [repeat S [fd 38 rt 144 £d 39 1t 721311 


Señala el inicio de la definición de un procedimiento. 


?to cuadrado 

repeat 4 [fd 54 rt 99] 
>end 

cuadrado defined 
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Edición 
ed 


(edit, editar, corregir). Carga los procedimientos o variables especificados en el tampón 
del editor de pantalla. 


Fed "cuadrado 


edall (*) 


(edit all, editar todos). Carga todas las variables y procedimientos en el tampón del edi- 
tor de pantalla y entra en el modo de edición. 


?edall 


edf (*) 
(edit file, editar fichero). Lee en el disco el fichero especificado y lo carga en el editor 
de pantalla. Si no existe ese fichero, lo crea y entra en el modo de edición con el tampón 


vacío. 


P?ed+ "estrella 
Funciones de la impresora 


copyon (*) 


(copia activada). Activa el modo “eco”, en el que todos los caracteres que aparecen en 
la pantalla son reproducidos en la impresora. 


?Ccopyon 


copyoff (*) 
(copia desactivada). Desactiva el modo “eco”. 


?copyof+f 
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Pantalla de texto 


ct 


(clear text, borrar texto). Borra la ventana en la que está actualmente el cursor; lleva 
el cursor al extremo superior izquierdo de la ventana. 


?ct 


cursor (*) 


Da como salida una lista de coordenadas que consiste en los números de columna y 
fila de la posición actual del cursor en la ventana de texto. 


Pct 
cursor 


[9 1] 
?(type [La posicion del cursor esi J) show cursor 


La posición del cursor es [26 4] 


pr 


(print, escribir). Escribe en la pantalla de texto los objetos de entrada; suprime los cor- 
chetes externos de las listas; efectúa un retorno del carro después de escribir el último 


objeto. (Compárese con show y type.) 


?pr la b Cc] 
abce 


setcursor (*) 


Sitúa el cursor en la posición especificada por la lista de entrada, que se interpreta co- 
mo lista de coordenadas de texto. 


?ct 

Pto imagen 

make "x random 29 

make "y random 12 
>setcursor list :x ¿y pr "*X 
>end 

imagen 
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setsplit 


Especifica el número de líneas de texto que debe tener la pantalla mixta. (Véase ss.) 


?setsplit 18 


show 


(mostrar). Escribe en la pantalla de texto el objeto de entrada; mantiene los corchetes 
externos de las listas; efectúa un retorno del carro. (Compárese con pr y type.) 


?show la b cl 
la b cl 


ts 


(text screen, pantalla de texto). Asigna la pantalla completa como pantalla de texto. 


?ts 


type 


(mecanografiar). Escribe en la pantalla los objetos de entrada: suprime los corchetes 
externos de las listas; no efectúa un retorno del carro después de escribir el último obje- 
to. (Compárese con pr y show.) 


?type la b cl 
abc 


Pantalla gráfica 


Como puede observar, la pantalla está en modo 1, con cuatro colores posibles; el siste- 
ma de coordenadas es igual al de BASIC. Las coordenadas se redondean al número 
par más próximo correspondiente a un punto de la pantalla. Los colores rojo, verde 
y azul se pueden graduar con los números 0, 1 y 2. 
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clean 
(limpiar). Borra la pantalla gráfica sin afectar a la tortuga. 


?+td 59 
?clean 


Cs 


(clear screen, borrar pantalla). Borra la pantalla gráfica y restablece la situación inicial 
de la tortuga: posición en el punto [0,0] y rumbo 0 grados (norte), pluma abajo. 


?rt 99 td 59 
Pcs 


dot 


(punto). Dibuja un punto en la posición especificada por la lista de coordendas con 
el color de pluma actual. 


?dot [59 193 


dote (*) 


(dot colour, color del punto). Da como salida el número del color que hay en el punto 
de coordenadas especificadas por la lista de entrada. Si el punto está fuera de la panta- 
lla, da —1. 


cs 

?setpc 1 
?dot -59 59 
?setpc 2 
?dot 59 59 
?setpc 3 
?dot 59 -59 
?dotc 59 39 


2 

?dotc -59 -59 

g 

?dotc 1909 3909 
-1 
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fence 


(valla). Establece un límite que confina la posición de la tortuga a la pantalla gráfica 
visible. Ese límite se suprime con window. 


?fence 
24d 399 
Turtle out of bounds 


fill (*) (no implementada en la versión actual de CP/M Plus) 


(rellenar). Rellena un área con el color actual de la pluma; para ello cambia el color 
del punto que está bajo la tortuga (y todos los puntos contiguos que sean del mismo 
color) utilizando el estado actual de la pluma. 


¿make "x 5 
cs 

?st 

pd 

repeat 39 [fd :x rt 99 make "x ¿:x + 5] 
?fd 29 rt 99 
?+d 19 

pu 

home 

?bk 2 

?pd 

?setpc 2 
?2fi11 


fs 
(full screen, pantalla completa). Asigna la pantalla entera a los gráficos. 


?fs 


pal 


(palette, paleta). Escribe la listas de los números que representan las proporciones de 
los colores rojo, verde y azul asignadas a la pluma especificada. 


?pal 2 
Ig 2 2] 


Y 
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setbg (*) 


(set background, definir fondo). Asigna al color del fondo de la pantalla gráfica el nú- 
mero especificado. 


Pet 
[9 SS 5 FENCE 13 


(Esto muestra que el color del fondo es cero.) 


pal Y 

(g g 1] 

?setbg 2 

?st 

[2 55 5 FENCE 1] 


setpal 


(set palette, definir paleta). Asigna una combinación de colores a la paleta utilizada por 
la pluma especificada. La lista representa las proporciones de rojo, verde y azul. 


?setpal 3[1 1 2] 
?pal 3 
t1 1 2] 


setscrunch (*) 


(set scrunch, definir relación de escalas; scrunch significa ““estrujar”” y hace referencia 
a la deformación que se produce en las imágenes de la pantalla cuando las escalas verti- 
cal y horizontal son distintas). Establece la relación entre las escalas vertical y horizon- 
tal en la pantalla gráfica. 


Pet 

[gag ss 5 FENCE 1] 

?to circunferencia 
>repeat 369 [fd 1 rt 1] 
>end 

circunferencia defined 
?setscrunch 2 

?st 

[g SS 5 FENCE 2] 
?circunferencia 
?setscrunch 2.5 
circunferencia 
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sÍ 


(screen facts, datos de pantalla). Escribe en la pantalla toda la información relativa a 
la pantalla gráfica. El formato es: [<color de fondo» (estado de pantalla) <líneas 
texto) (estado de ventana) (relación de escalas]. 


(color de fondo) es el número de pluma para el fondo (siempre igual a 0 en CP/M 2.2). 


(estado de pantalla) puede ser SS (pantalla mixta), FS (pantalla completa para gráfi- 
cos) o TS (pantalla completa para texto). 


(líneas texto) es el número de líneas reservadas para texto en la pantalla mixta. 
(estado de ventana) indica el modo WINDOW, WRAP o FENCE. 


(relación de escalas) representa la relación entre las escalas vertical y horizontal de la 
pantalla gráfica. Su valor se puede modificar con setscrunch (no en CP/M 2.2). 


st 
19 SS 5 FENCE 2.5] 
ss 


(split screen, pantalla mixta). Establece una ventana para texto dentro de la pantalla 
gráfica. 


ss 


window 


(ventana). Permite que la tortuga se salga de los límites de la pantalla gráfica visible 
después de una orden wrap o fence. 


?tence ftd 3998 

Turtie out of bounds 
?nwindow 

?fd 399 


Wrap 


(superponer borde con borde). Hace que la tortuga aparezca por el lado opuesto de 
la pantalla cuando sobrepasa algún borde. 


Pcs wrap 

?rt 5 fd 1099 
?cs window 
?2rt S fd 10989 
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Gráficos de tortuga 


bk 


(backward, atrás). Mueve la tortuga el número de pasos especificado por el número 
de entrada, en sentido opuesto al señalado por su rumbo. 


?cs ftd 159 
?bk 58 


fd 


(forward, adelante). Mueve la tortuga el número de pasos especificado por el número 
de entrada, en el sentido señalado por su rumbo. 


?4d 88 


home (*) 


Lleva la tortuga a su situación inicial: posición [0 0] (centro de la pantalla gráfica) y 
rumbo 0 (norte). 


?+d 19% 
?rt 45 
?+d 199 
home 


ht 


(hide turtle, ocultar tortuga). Hace la tortuga invisible, con lo que los dibujos son me- 
nos confusos y se realizan a mayor velocidad. 


2ht 
Pcs +d 58 
Pst 


lí 


(left, izquierda). Gira el rumbo de la tortuga hacia la izquierda el número de grados 
especificado por el número de entrada. 


A e —  ————— 
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pd 
(pen down, bajar pluma). Baja la pluma de la tortuga para que ésta dibuje al moverse. 


?+d 29 pu $fd 29 
?pd 
P+d 29 


pe 


(pen erase, pluma de borrar). Cambia el color de la pluma de la tortuga al color del 
fondo; la tortuga borra lo que encuentra dibujado en su camino. 


?+td 59 
?pe 

?bk 25 
?td 59 
?pd $fd 25 


pu 
(pen up, subir pluma). Sube la pluma de la tortuga para que ésta no dibuje al moverse. 


P+d 39 
pu 

?+d 39 
Ppd +td 38 


px 


(pen exchange, pluma de inversión). Hace que la tortuga cambie el color de los pixels 
que encuentra coloreados en su camino por el color complementario o inverso. 


?+d 29 pu td 29 
?pd setpc 3 $d 29 
?px 

?bk 89 

?+td 89 

?pd bk 199 


ÉK—_—  —_—_—__—_—_ A 
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rt 


(right, derecha). Gira el rumbo de la tortuga hacia la derecha el número de grados espe- 
cificado por el número de entrada. 


?rt 99 


seth 
(set heading, establecer rumbo). Orienta la tortuga en el rumbo absoluto especificado 
por el número de entrada (en grados). Los números positivos la hacen girar en el senti- 


do de las agujas del reloj; los negativos, en el sentido contrario. 


P¿seth 99 


setpe 


(set pen colour, establecer color de pluma). Asigna a la tortuga la pluma especificada 
por el número de entrada. 


?setpc 1 


setpos 


(set position, establecer posición). Lleva la tortuga al punto especificado por la lista 
de coordenadas de entrada. 


?setpos [39 29] 


setx (*) 


Lleva la tortuga a un punto cuya coofdenada X es la especificada, sin modificar la 
coordenada Y. (Véase también sety.) 


?setx 89 
?+4d 199 
?setx -59 
?+d 59 
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sety (*) 


Lleva la tortuga a un punto cuya coordenada Y es la especificada, sin modificar la 
coordenada X. (Véase también setx.) 


?sety 99 
?+d 28 
Psety -59 
?+d 59 


st 


(show turtle, mostrar tortuga). Hace la tortuga visible, si estaba oculta. 


ht 
?+4d 56 
?st 


tf 


(turtle facts, datos de tortuga). Escribe en la pantalla la información relativa a la tortu- 


ga. El formato es: [(coor x) (coor y) (rumbo) (estado de pluma) (pluma n)> 
(visible >]. 


(coor x) y (coor y) son las coordenadas de la posición actual de la tortuga. 


<rumbo) es la orientación actual de la tortuga. 


(estado de pluma) indica PD (pluma bajada), PE (pluma de borrar), PX (pluma de 
inversión) o PU (pluma subida). 


(pluma n) indica el número de pluma de la tortuga. 


(visible) es TRUE (verdadero) si la tortuga es visible. 


?setpos [15 39 

?rt 68 

?setpc 3 

pe 

ht 

Pt+ 

[15 36 66 PE 3 FALSE] 


— A  -I- --==41 
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towards (*) 


(hacia). Da como salida un rumbo tal que, si la tortuga lo tuviera, *““miraría”” hacia la 
posición especificada con la lista de coordenadas. 


?seth towards list ¿x :y 


Gestión del espacio de trabajo 


er 


(erase, borrar). Borra del espacio de trabajo los procedimientos especificados. 


?er "cuadrado 


erall (*) 


(erase all, borra todos). Borra del espacio de trabajo todos los procedimientos y 
variables. 


?erall 


ern 


(erase name, borrar nombre). Borra del espacio de trabajo las variables especificadas. 


¿make "lado [199] 
?make "angulo [45] 
?:lado :angulo 
1199] 

[45] 

?ern [lado angulo] 
?:lado 

lado has vo value 


nodes 


Da el número de nodos que quedan libres en el espacio de trabajo. 


P?nodes 
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noformat (*) 


Elimina del espacio de trabajo el formato de los procedimientos, incluidos los comenta- 
rios, con el fin de liberar nodos. 


?to cuadrado 
>pd 
>repeat 4 
> [fd 59 
> rt 99] 
>pu 

>end 
cuadrado defined 
?noformat 

?po "cuadrado 

to cuadrado 

pd 

repeat 4 [+d 58 rt 99] 
pu 

end 


esto es lo 
que se repite 


poall (*) 


Muestra las definiciones de todos los procedimientos y variables del espacio de trabajo. 


?poall 


pons (*) 

Muestra los nombres y valores de todas las variables globales del espacio de trabajo. 
?pons 
medio es 49 


pequeno es 29 
grande es 89 


pops (*) 
Muestra los nombres y definiciones de todos los procedimientos del espacio de trabajo. 


?pops 
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recycle 


Libera el mayor número posible de nodos y reorganiza el espacio de trabajo. 


?recycle 
?nodes 


Listas de propiedades 


glist 


(get list, obtener lista). Da una relación de todos los objetos del espacio de trabajo que 
tienen la propiedad de nombre especificado en sus respectivas listas de propiedades. 


?glist ".DEF 


gprop 


(get property, obtener propiedad). Da el valor que tiene en el objeto de entrada la pro- 
piedad cuyo nombre se especifica. 


?make "estatura "172 
?gprop "estatura ".APV 
172 


plist 


(property list, lista de propiedades). Escribe la lista de propiedades del objeto de 
entrada. 


?plist "estatura 
[.APV 172] 


pprop 


(put property, poner propiedad). Pone el par de propiedades de entrada en la lista de 
propiedades del objeto especificado. 


?pprop "usted ".APV "lector 
?:usted 
lector 


A 5 5 5 5 5 o 
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pps (*) 


(property pairs, pares de propiedades). Muestra todos los pares de propiedades no es- 
tándar de todos los objetos que hay en el espacio de trabajo. 


?pprop "Sally "extension 213 
pps 
Sally's extension is 213 


?plist "Sally 
[extension 213] 


remprop 


(remove property, retirar propiedad). Suprime la propiedad especificada de la lista de 
propiedades del objeto de entrada. 


?remprop "usted ".APV 


Ficheros en disco 


changef (*) 


(change file, cambiar fichero). Cambia el nombre de un fichero en el directorio de un 
disco. 


?dir 

[CUADRADO CIRCULO ESTRELLA] 
?changef "circunferencia "circulo 
?dir 

[CUADRADO CIRCUNFERENCIA ESTRELLA] 


defaultd (*) 


(default drive, unidad implícita). Da el nombre de la unidad de disco implícita. 


?defaultd 
A: 


x€E_-EdÓqá—— € _—_._ _F—— e 
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dir 


(directory, directorio). Da la lista de todos los nombres de ficheros creados por Dr. 
LOGO que se encuentran en la unidad de disco implícita; acepta símbolos comodín. 


“dir "a:??2??2?2?2? 


(Consulte la parte 1 del capítulo *AMSDOS y CP/M”, donde se explica cómo utilizar 
los símbolos comodín; Dr. LOGO no acepta el *.) 


dirpic (*) 


(picture, imagen). Da la lista de los nombres de los ficheros que contienen imágenes 
de pantalla en la unidad especificada (o en la implícita, si no se especifica otra). Acepta 
símbolos comodín. 


?dirpic 
(JUEGO CUADRADOS CIUDAD ESFERA_RELOJ] 


load 


Lee el fichero especificado y lo carga en el espacio de trabajo. 


?load "prueba 
?load "b:dibujos 


loadpic (*) 
Lee el fichero de imagen especificado y forma la imagen correspondiente en la pantalla. 


?loadpic "juego 
?loadpic "b:juego 


save 


Graba en el disco el contenido del espacio de trabajo, con el nombre de fichero 
especificado. 


?save "dibujos 


== 
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Nota. Antes de grabar, inserte un disco inicializado en el que quede espacio suficiente 


para el fichero que vaya a grabar. No grabe nunca nada en el disco maestro (de 
hecho, los orificios de protección de los discos maestros deben estar siempre 
cerrados). 


Si está utilizando la versión de Dr. LOGO para CP/M 2.2 (cara 4), no podrá 
cambiar el disco a mitad de la sesión de trabajo. En este caso es aún más impor- 
tante disponer de un disco de trabajo con CP/M 2.2 y Dr. LOGO en el que haya 
abundante espacio libre para grabar programas. 


savepic (*) 


Graba en el disco información completa sobre la imagen que hay en la pantalla, con 


el nombre de fichero especificado. 


?savepic "estera_reloj 
?savepic "bliesfera_reloj 


Nota. Antes de grabar, inserte un disco inicializado en el que quede espacio suficiente 


para el fichero que vaya a grabar. No grabe nunca nada en el disco maestro (de 
hecho, los orificios de protección de los discos maestros deben estar siempre 
cerrados). 


Si está utilizando la versión de Dr. LOGO para CP/M 2.2 (cara 4), no podrá 
cambiar el disco a mitad de la sesión de trabajo. En este caso es aún más impor- 
tante disponer de un disco de trabajo con CP/M 2.2 y Dr. LOGO en el que haya 
abundante espacio libre para grabar programas. 


setd (*) 


(definir unidad). Establece como unidad implícita la especificada. 


?defaultd 

A: 

dir 

[CUADRADO CIRCUNFERENCIA ESTRELLA] 
?setd b: 

?defaultd 

B: 

dir 

[TRIANGULO CASA] 


———_——_ —_ _—_—_ __ __ __——__— 
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Teclado y joystick 


buttonp 


(button pressed, botón pulsado). Da como salida el valor lógico TRUE (verdadero) si 
está pulsado el botón del joystick cuyo número se especifica (0 o 1). 


?to disparo 

>label "bucle 

if (buttonp 9) [pr [fuego el 9!J3] 
if (buttonp 1) (pr [fuego el 1!J3] 
>3go "bucle 

>end 


La situación de la empuñadura se determina con paddle. 


keyp 
(key pressed, tecla pulsada). Da como salida el valor lógico TRUE (verdadero) si se ha 
tecleado alguna tecla y está en espera de ser leída. 


“to tecla 
if keyp [op rcj] fop "]J 
>end 


paddle 


Determina la situación del joystick O o el 1. El significado de los valores generados es 
el siguiente: 


Valor Significado 


255 Inactivo 
Arriba 

1 Arriba y a la derecha 
2 A la derecha 
3 Abajo y a la izquierda 
4 Abajo 
h] Abajo y a la izquierda 
6 A la izquierda 
7 Arriba y a la izquierda 


e  —— 
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?paddle Y 
255 


Los botones de disparo se comprueban con buttonp. 


rc 


(read character, leer carácter). Da como salida el primer carácter que se teclee a 
continuación. 


?make "tecla rc 


. ahora teclee una X ... 


?:tecla 
Xx 


rl 


(read list, leer lista). Da como salida una lista que consiste en la línea que se va a teclear 
a continuación. La entrada tiene que terminar con un retorno del carro. 


?make "lista instrucciones rl 
repeat 4 [fd 59 rt 99] 
?:ilista_instrucciones 

[repeat 4 [fd 59 rt 9911 


rq 


(read quote, leer literalmente). Da como salida una palabra que consiste en la línea que 
se va a teclear a continuación. La entrada tiene que terminar con un retorno del carro. 


“make "orden rq 

repeat 3 [fd 68 rt 129] 
?:o0rden 

repeat 3 [fd 68 rt 129] 


€xEÉ--_—_——_ 
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Sonido 


Las órdenes de sonido son peculiares de la implementación para AMSTRAD de Dr. 
LOGO; son similares a sus análogos en BASIC. 


Consulte la parte 9 del “Curso de introducción”. 


sound 
Envía un sonido a la cola de sonidos. El formato es: [<situación de canales) (periodo 
de tono)» (duración) (volumen) (envolvente de volumen) (envolvente de tono) 


(ruido)»]. Solamente los dos primeros parámetros son obligatorios. 


?sound [1 29 59] 


env 


Define una envolvente de volumen. El formato es: [(número de la envolvente) (seccio- 
nes de envolvente)]. 


P?env [1 199 2 29] 
?sound [1 209 3994 S 11 


ent 


Define una envolvente de tono. El formato es: [número de la envolvente) (secciones 
de envolvente)]. 


?ent [1 199 2 29] 
?sound [i 299 398 5 1 1] 
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release 


Libera los canales de sonido que han sido retenidos en una orden sound. Los canales 
que se liberan son: 


Valor de entrada Canales liberados 


Ninguno 
A 

B 

A y B 
C 

AyC 
ByC 
A,ByC 


ZXQ a Eh YN -— Y 


?release 1 


Control de ejecución 


bye 
Da por terminada la actual sesión de trabajo con Dr. LOGO. 


?bye 


co 


Reanuda la ejecución tras una pausa provocada por [CONTROLIZ, pause 
ERRACT. 


?co 


go 


Ejecuta la línea del procedimiento actual que está identificada por la etiqueta que se 
menciona como entrada. 


290 "bucle 


A O O OO DO 
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if 


Ejecuta una de dos listas de instrucciones, dependiendo del valor lógico de la expresión 
de entrada; las instrucciones deben ser listas literales entre corchetes. La segunda lista 


es opcional. 
if (ab) [pr la es mayorJ] 
>Epr [b es mayorl] 

label 


Identifica una línea para que pueda ser ejecutada por una instrucción go. 


>label "bucle 


op 


(output, salida). Convierte el objeto de entrada en la salida del procedimiento y da por 
terminada la ejecución de éste. 


?op [resultadol 


repeat 


Ejecuta la lista de instrucciones el número de veces especificado. 


?repeat 4 [+d 59 rt 991 


run 
Ejecuta la lista de instrucciones especificada. 


?make "lista_instrucciones [fd 44 rt 991 
?run :lista_instrucciones 


stop 


Detiene la ejecución del procedimiento actual y retorna a TOPLEVEL (nivel exterior, 
donde aparece el signo ?) o al procedimiento que lo invocó. 


?stop 
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A O DO OOOO DO DN AN 


wait 


Introduce en la ejecución del procedimiento una pausa de duración especificada (en 
unidades de 0.022 segundos). 


?wait 299 


Gestión de excepciones/errores 


catch 


Intercepta errores y situaciones especiales que ocurran durante la ejecución de la lista 
de entrada. 


>catch "error [+ 13 [1] 
>pr laqui estoy] 
aqui estoy 


error 


Da una lista cuyos elementos describen el error más reciente. 


>catch "error [seguir.hasta.error] 
>show error 


notrace (*) 


Desactiva el modo “trace” de ejecución de los procedimientos. (Véase trace.) 


?notrace 


nowatch (*) 
Desactiva el modo *watch' de ejecución de los procedimientos. (Véase watch.) 


?nowatch 


A DI II AAN 
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pause 


Suspende la ejecución del procedimiento actual para permitir la interacción con el in- 
térprete o el editor. 


if :lado>5 [pause] 


throw 


Ejecuta la línea identificada por el nombre de entrada de una expresión catch anterior. 


?throw "TOPLEVEL 


trace (*) 


Establece un modo de ejecución de procedimientos consistente en que en la pantalla 
se indica qué procedimiento está siendo ejecutado en cada momento. 


Ptrace 


watch (*) 
Establece un modo de ejecución de procedimientos consistente en que en la pantalla 
se indica qué instrucción va a ser ejecutada y se hace una pausa para que el usuario 


observe o modifique la evolución del procedimiento. 


“watch 


Primitivas del sistema 


.contents 


Muestra el contenido del espacio para símbolos de Dr. LOGO. 


«deposit 


Escribe el segundo número de entrada en la posición absoluta de memoria especificada 
por el primero. 
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PIN A A A 
.examine 


Muestra el contenido de la posición absoluta de memoria especificada. 
«in (*) 
Lee el valor presente en la puerta especificada. 


.0ut (*) 


Envía el valor especificado a la puerta especificada. 


Variables del sistema 


ERRACT 


Si tiene el valor lógico TRUE (verdadero), introduce una pausa cuando se produce un 
error y luego retorna a TOPLEVEL. 


FALSE 


Valor de sistema. (Falso.) 


REDEFP 


Si tiene el valor lógico TRUE (verdadero), permite la redefinición de primitivas. 


TOPLEVEL 


throw ""“TOPLEVEL provoca la salida de todos los procedimientos pendientes (volvien- 
do al nivel exterior). 


TRUE 


Valor de sistema. (Verdadero.) 
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Propiedades del sistema 


.APV 


Valor de propiedad asociado; es el valor de una variable global. 


.DEF 


Definición de un procedimiento. 


«ENL (*) 


Fin de una línea de procedimiento que está partida por un retorno del carro o por 
espacios. 


.EMT (*) 


Principio de una línea de procedimiento que está partida por un retorno del carro o 
por espacios. 


.PRM 


Identifica una primitiva. 


.REM (o bien ;) (*) 


Observaciones o comentarios. 


e 5 5 
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Capítulo 7 
Para su referencia ... 


Este capítulo contiene la mayor parte de la información que usted pueda 
necesitar para aprender a manejar el ordenador. 


Temas tratados: 


Posiciones del cursor y códigos de control 
Interrupciones 

Caracteres ASCII y caracteres gráficos 
Esquemas del teclado 

Sonidos 

Mensajes de error 

Palabras de error 

Palabras reservadas de BASIC 

Plantillas 

Conexiones 

Impresoras 

Joysticks 

Organización de los discos 

Ampliaciones del sistema residentes (RSX) 
Memoria 

Emulador de consola de CP/M Plus 
Juego de caracteres de CP/M Plus 


XX XA LE E A €) €) €) A € A A) EC E) CEC E 


Para más completa información sobre BASIC y el firmware del CPC6128, consúltense 
las publicaciones SOFT967 y SOFT968, respectivamente. 
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Parte 1: Posiciones del cursor y códigos 
ampliados de control en BASIC 


En ciertas aplicaciones el cursor puede encontrarse fuera de la ventana de texto. Algu- 
nas operaciones fuerzan al cursor a ocupar una posición permitida antes de poder ser 
llevadas a cabo. Son las siguientes: 


1. Escribir un carácter. 
2. Exhibir el signo del cursor (el rectángulo). 
3. Obedecer los códigos de control señalados con un asterisco en la tabla siguiente. 


El proceso de forzar el cursor a ocupar una posición permitida consiste en lo siguiente: 


1. Si el cursor está a la derecha del borde derecho de la ventana, salta al extremo iz- 
quierdo de la línea siguiene. 


2. Si el cursor está a la izquierda del borde izquierdo de la ventana, salta al extremo 
derecho de la línea anterior. 


3. Si el cursor está por encima del borde superior, el contenido de la ventana se despla- 
za una línea hacia abajo y el cursor aparece en la primera línea. 


4. Si el cursor está por debajo del borde inferior, el contenido de la ventana se desplaza 
una línea hacia arriba y el cursor aparece en la última línea. 


Las comprobaciones y operaciones se realizan en el orden de la lista anterior. Las posi- 
ciones ilegales del cursor pueden ser cero o negativas, es decir, a la izquierda y por enci- 
ma de la ventana. 


Los códigos del margen 0 a 31 no producen ningún símbolo cuando se los envía a la 
pantalla, sino que son interpretados como códigos de control (y deben ser utilizados 
con cuidado). Algunos de ellos alteran el significado de uno o varios de los códigos si- 
guientes, que hacen las funciones de parámetros del código original. 


Si se envía un código de control a la pantalla gráfica, su efecto es dibujar un símbolo 
relacionado con la función que tendría si se lo generase mediante el teclado (v. g., 
$07“BEL”: [CONTROL]G). Ejercerá su función de control si se lo envía a la pantalla 
mediante: 


PRINT CHR$*(g7) —obien PRINT "a” 


donde el símbolo del ““timbre”” se obtiene pulsando [CONTROLI]G en el momento de 
teclear la instrucción PRINT. 


Los códigos señalados con +* en la lista siguiente fuerzan al cursor a ocupar una posi- 
ción permitida en la ventana antes de ser obedecidos. Para cada código se da el núme- 
ro, en hexadecimal y en decimal, y la descripción de su función. 
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Parámetro 


Significado 


Sin efecto. Se lo ignora. 


Escribe el símbolo correspondiente al va- 
lor del parámetro, lo que permite exhibir 
los símbolos del 0 al 31. 


Hace invisible el cursor de texto. Equivale 
a la orden CURSOR con el parámetro 
(conmutador de usuario) igual a O. 


Hace visible el cursor de texto. Equivale a 
la orden CURSOR con el parámetro 
(conmutador de usuario)» igual a 1. Nóte- 
se que para visualizar el cursor desde den- 
tro de un programa de BASIC (aparte de 
la situación en que BASIC está esperando 
una entrada por el teclado) es necesario 
ejecutar una orden CURSOR con el pará- 
metro (conmutador del sistema) igual a 1. 


Establece el modo de pantalla. El paráme- 
tro se toma MOD 4. Equivale a la orden 
MODE. 


Envía a la posición del cursor gráfico el 
carácter correspondiente al valor del 
parámetro. 


Habilita la pantalla de texto. (Véase $115 
NAK.) 


Produce un pitido. Obsérvese que este có- 
digo borra las colas de sonido. 


Hace retroceder el cursor una posición. 
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Hace avanzar el cursor una posición. 
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Parámetro 


Significado 


Hace bajar el cursor una línea. 


Hace subir el cursor una línea. 


Borra la ventana de texto y lleva el cursor 
al extremo superior izquierdo. Equivale a 
la orden CLS. 


Lleva el cursor al extremo izquierdo de la 
línea actual. 


Establece la tinta asignada al papel. El pa- 
rámetro se toma MOD 16. Equivale a la 
orden PAPER. 


Establece la tinta asignada a la pluma. El 
parámetro se toma MOD 16. Equivale a la 
orden PEN. 


Borra el carácter que está en la posición 
del cursor. Rellena la célula del carácter 
con el color actual del papel. 


Borra desde el extremo izquierdo de la 
ventana hasta la posición actual del cursor 
inclusive. Rellena las células afectadas con 
el color actual del papel. 


Borra desde la posición actual del cursor 
inclusive hasta el extremo derecho de la 
ventana. Rellena las células afectadas con 
el color actual del papel. 


Borra desde el principio de la ventana has- 
ta la posición actual del cursor inclusive. 
Rellena las células afectadas con el color 
actual del papel. 


A _ q »>Eó _—_ 
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Borra desde la posición actual del cursor 
inclusive hasta el final de la ventana. Re- 
llena las células afectadas con el color ac- 
tual del papel. 
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Parámetro 


Significado 


Inhibe la pantalla de texto, la cual no reac- 
ciona ante nada que se le envía mientras 
no reciba el código ACK (6:06 6) 


Se toma el parámetro MOD 2. Opción de 
transparencia: O desactiva, 1 activa. 


Se toma el parámetro MOD 4. Establece el 
modo de tinta para gráficos: 


O normal 
1 XOR 

2 AND 

3 OR 


Intercambia las tintas de pluma y papel. 


Define la matriz de un carácter definible 
por el usuario. Equivale a la orden 
SYMBOL. Lleva nueve parámetros. El 
primero es el número del carácter; los 
ocho restantes, el diseño del carácter. El 
bit más significativo del primer byte co- 
rresponde al punto extremo superior iz- 
quierdo del carácter. El bit menos signifi- 
cativo del último byte corresponde al pun- 
to extremo inferior derecho del caracter. 


Define una ventana. Equivale a la orden 
WINDOW. Los dos primeros parámetros 
especifican los bordes izquierdo y derecho 
de la ventana; el menor de ellos se conside- 
ra definitorio del borde izquierdo. Los dos 
últimos parámetros especifican los bordes 
superior e inferior de la ventana; el menor 
de ellos se considera definitorio del borde 
superior. 
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Sin efecto. Se lo ignora. 
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A 


Valor Nombre | Parámetro | Significado 
£«iC 28 FS 0a1s Asigna dos colores a una tinta. Equivale a 
Oa 31 la orden INK. El primer parámetro (MOD 
0a31 16) especifica el número de tinta; los dos 


siguientes (MOD 32), los colores desea- 
dos. (Los valores 27 a 31 no corresponden 
a colores definidos.) 


«iD 29 GS 0a 31 Asigna dos colores al borde. Equivale a la 
0a31 orden BORDER. Los dos parámetros 
(MOD 32) especifican los colores. (Los va- 
lores 27 a 31 no corresponden a colores 
definidos.) 


G«lE 30 RS Lleva el cursor. al extremo superior iz- 
quierdo de la ventana. 


«lF 31 US la 80 Lleva el cursor a la posición especificada 
la25 dentro de la ventana actual. Equivale a la 
orden LOCATE. El primer parámetro re- 
presenta la columna; el segundo, la línea. 


Parte 2: El sistema operativo 


La gestión interna del CPC6128 es realizada en tiempo real por un sofisticado sistema 
operativo. El sistema operativo es una especie de “guardia de tráfico” que controla el 
flujo entre entradas y salidas. 


Su función primordial es servir de intermediario (interfaz) entre BASIC y los circuitos 
electrónicos. Por ejemplo, cuando el programa exige que parpadeen las tintas, BASIC 
entrega al sistema operativo los parámetros y éste realiza el trabajo. 


El sistema operativo de la máquina es lo que se suele denominar “firmware”. Es un pro- 
grama grabado en ROM y comprende las rutinas en código de máquina que son invoca- 
das por las órdenes de alto nivel de BASIC. 


Si se siente tentado a modificar el contenido de posiciones de memoria (con la orden 
POKE) o a invocar subrutinas del sistema operativo (con CALL), grabe el programa 
antes de que sea demasiado tarde. 


El firmware del sistema operativo del CPC6128 está descrito en la publicación SOFT 
968 y queda fuera del alcance de este manual. 


A o A 
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Si usted piensa programar en código de máquina, debe proveerse de un programa en- 
samblador. El DEVPAC de AMSOFT incluye un ensamblador de Z80 reubicable, con 
editor, desensamblador y monitor. 


Parte 3: Interrupciones 


El CPC6128 utiliza ampliamente las interrupciones del Z80 para proporcionar un siste- 
ma operativo que incluye varias características multitarea, de las que son ejemplo las 
estructuras AFTER y EVERY descritas en otro lugar de este manual. El orden de priori- 
dad de los temporizadores es el siguiente: 


Break ([ESCIIESC]) (detención del programa) 
Temporizador 3 

Temporizador 2 (y las tres colas de sonido) 
Temporizador 1 

Temporizador 0 


Las interrupciones sólo se deben programar después de considerar las consecuencias de 
los posibles estados intermedios de las variables en el momento de la interrupción. La 
subrutina de interrupción debe evitar interacciones indeseadas con el estado de las va- 
riables del programa principal. 


Las colas de sonidos tienen interrupciones independientes, de igual nivel de prioridad. 
Una vez iniciada una interrupción de sonido, ya no puede ser interrumpida por otra 
de sonido. Este mecanismo permite que las rutinas de interrupción de sonido puedan 
compartir variables sin estar sujetas a los riesgos mencionados. 


Cuando se habilita una interrupción de cola de sonido (con ON SQ GOSUB), la inte- 
rrupción se realiza inmediatamente si la cola de sonido del canal correspondiente no 
está llena; si lo está, la interrupción se producirá cuando termine el sonido actual y que- 
de espacio libre en la cola. La acción de la interrupción inhibe el suceso, de modo que 
la subrutina debe ser rehabilitada si se la va a utilizar más tarde. 


Las acciones de enviar un sonido y de examinar el estado de la cola inhiben también 
la interrupción de sonido. 
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Parte 4: Caracteres ASCH y caracteres 
gráficos en BASIC 


ASCUHU 


En la tabla siguiente se da la relación de los códigos y caracteres ASCII. Los números 
están en decimal, octal y hexadecimal. En las siguientes páginas se ilustra el diseño de 
los caracteres generados por el CPC6128. 


DEC OCTAL HEX Caracteres ASCII DEC OCTAL HEX ASCII DEC OCTAL HEX ASCH 


NUL ([CONTROL]G) 50 062 32 100 144 64 
SOH ([CONTROLIA) 51 33 101 145 65 
STX ([CONTROL]B) 52 102 146 66 
ETX ([CONTROLIC) 53 103 147 67 
EOT ([CONTROL]D) 54 150 
ENQ ([CONTROLJE) 55 151 
ACK ([CONTROLJF) 36 152 
BRL ([CONTROL]IG) 51 153 
BS ([CONTROL]H) 58 : 154 
HT ([CONTROLI!) 59 ; 155 
LF ([CONTROL]J) 60 156 
VT ([CONTROLIK) 61 157 
FF ([CONTROLIL) 62 
CR ([CONTROL]M) 63 
SO ([CONTROLIN) 64 
S1 ([CONTROLJO) 65 
DLE ([CONTROL]P) 66 
DC1 ([CONTROLIO) 61 
DC2 ([CONTROLIR) 68 
DC3 (ICONTROL]S) 69 
DC4 ([CONTROLTT) 70 
NAK ([CONTROLJU) 71 
SYN ([CONTROL]V) 72 
ETB ([CONTROLIW) 73 
CAN ([CONTROLIX) 74 
EM ([CONTROL]Y) 75 
SUB ([CONTROLIZ) 76 
ESC ([CONTROLID T 
FS (ICONTROL]) 78 
GS (ICONTROL]])) 79 
RS (([CONTROL]1) 80 
US ([CONTROLK) 81 
sP 82 
83 
$4 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
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Conjunto de caracteres gráficos 
específicos de la máquina 


Los caracteres aquí reproducidos están representados en la 
matriz estándar de 8x8 en la que se basa la visualización de 
texto en la pantalla del CPC6128. Los caracteres definidos 
por el usuario pueden ser agrupados para conseguir efectos 
especiales. Véase la sección “Caracteres definidos por el 


> 


usuario? en el capítulo “Cuando usted guste ...?. 


8H23 
] 
37 38 
8H25 8 H26 8 H27 
8X00100101 800100110 
1] 
1] 
41 
8, H29 8H2A 
800101001 
OPEL 
COEL] 
0) 
un 
HL 
un 
45 
8 H2D 8 H2E 8 H2F 
8X00101101 8X00101110 8X00101111 


32 8H20 
8X00100000 


36 
8H24 
8X00100100 


El 
1] 
40 


8H28 
8X00101000 


8H2C 


48 
8 H30 
800110000 
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49 
8. H31 
8X00110001 


8 H35 
8X00110101 


8 H3D 
800111101 


8 H41 
801000001 


50 
8.H32 


8X00110010 


54 
8 H36 


8X00110110 


8 H3A 
8X00111010 


62 
8 H3E 
8X00111110 


ES 


66 
8 H42 
8X01000010 


e HE 


2H09 
8X00110011 


55 
8.537 


8X00110111 


59 
8 H3B 


8 H3F 


67 
8 H43 
8X01000011 


¿Ho 
800110100 


-s0 


56 
8 H38 
800111000 


8 H3C 
800111100 


£X01000100 
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8 H45 
£X01000101 


73 
8 H49 
8X01001001 


8 H4D 


81 
8. H51 
801010001 


8. H55 
£X01010101 
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8 H46 
8xX01000110 


74 
8 H4A 
£X01001010 


8 H4E 


8. H52 
8X01010010 


8. H56 
£X01010110 


71 
8 H47 
801000111 


8 H4B 
£X01001011 


79 
8. H4F 
8X01001111 

E 

Bi 

83 
8. H53 
£X01010011 
y] y] 
A] 1] 
1] 1] 
[| 1] 
L] Lp 
A] La 
87 
8. H57 
£X01010111 


72 
8 H48 
801001000 


8 H4C 
801001100 


8 H50 
8X01010000 


84 
8. H54 
£X01010100 


8 H58 
£X01011000 
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89 90 91 92 
8, H59 8, HSA 8 H5B 8 H5C 
801011001 8X01011010 8X01011011 8X01011100 


93 
8 H5D 8, H5F 8 H60 
8X01011101 8X01011111 8X01100000 
y] 
1] 
97 100 
8 H61 8 H62 8, H63 8, H64 
801100001 8X01100010 £X01100011 8X01100100 


101 102 103 104 
8. H65 8. H66 8H67 8. H68 
8X01100101 8X01100110 8X01100111 8X01101000 


107 108 
8, H69 8 H6B 8 H6C 
8X01101001 8Xx01101010 8X01101011 8X01101100 
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109 
8 H6D 8 H6E 
8X01101101 8X01101110 801101111 


] ul 

113 

8 H71 8H72 8 H73 
801110001 3801110010 8X01110011 


117 119 
8 H75 8 H77 
8X01110101 8X01110110 8X01110111 
m 
7] y] 
1] 
Ll] 
7] 7] 
o] 
] 0] 
O DADA 
121 122 123 
8H79 8 H7A 8H7B 
801111001 8Xx01111010 8X01111011 


a 


127 
8, H7F 
8Xx01111101 8Xx01111110 8Xx01111111 


8X01110000 
] 
: 
7] 


116 
8H74 
8X01110100 


124 
8H7C 
8X01111100 
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129 131 

8 H81 8 H82 8. H83 

810000001 810000010 810000011 

Ti] 

FT] 

PH] 

11] 

TT] 

ana 

TT] 

] 

133 134 135 

8 H85 8 H86 8 H87 8. H88 
8X10000101 8X10000110 8X10000111 8X10001000 


137 138 139 
8. H89 8 H8A 8H8B 8 H8C 
8X10001001 8X10001010 8X10001011 8X10001100 
PEPE] O DO SD 
HA 
TP] 
ala] 
AAN 
TITS 
HA 


141 142 
2H8D 2HSE 
8X10001110 


8. H90 


147 
8H91 8 H92 8 H93 8. H94 
8X10010001 8X10010010 8X10010011 810010100 


——_—_—_ _—_ _ —_—____— 
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sum SO 

HL] 

LH] 

ALL 

ML] 

ML] 

MTI 

2... 

151 

8 H95 8 H96 i 8 H97 8 H98 
8X10010101 8X10010110 8X10010111 . 8X10011000 


153 155 
8 H99 8 H9A 8H9B 
8X10011001 8X10011010 8Xx10011011 8X10011100 


157 159 160 

8 H9D 8 H9E 8 H9F 8 HAO 

8X10011101 8X10011110 -8X10011111 8X10100000 
o! 


161 163 164 
2HA1 £HA3 £HA4 
8X10100010 8X10100011 8X10100100 
m 
a 
a 
165 166 
£HA5 2HA6 
8X10100101 8X10100110 8X10100111 8X10101000 


Para su referencia ... 7/15 


7/16 


nn L] 
OILLALLO 
169 


8. HA9 
810101001 


AZ] 
TL 
2 n 
EEE 
COLES 
173 
8 HAD 
8X10101101 


r 
L] 
7] 
] 
1] 
7] 


177 
8 HB1 
810110001 


181 
8 HB5 


8 HB9 
810111001 


170 
8 HAA 
8X10101010 


178 
8 HB2 
810110010 


$8X10110110 


Pou 


186 
8 HBA 
8Xx10111010 


171 
£ HAB 
8X10101011 


Ll] n.. 
AAA 
172 


8 HAC 
8X10101100 


176 
£HBO 
810110000 


180 
8 HB4 
8X10110100 


183 
8 HB7 
8X10110111 


[_] 
187 


g8HBB 
8X10111011 


184 
£HB8 
810111000 


Es 


188 
g8HBC 
8X10111100 
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) 


189 
8HBD 
8X10111101 


201 
8, HC9 
8X11001001 


8 HCD 
8X11001101 
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190 
8 HBE 
8X10111110 


8 HC2 


8 HC6 


202 
2HCA 


- 8X11001010 


8 HCE 
8X11001110 


8 HBF 


195 
8 HC3 


199 
8 HC7 
8X11000111 


203 
8 HCB 
8X11001011 


ss 


207 
8 HCF 
8X11001111 


8, HC4 


8X11001000 
] 

m 

O 

204 

8 HCC 

8X11001100 


8 HDO 
8X11010000 
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213 
8 HD5 


£X11011001 


221 
8 HDD 
8X11011101 


8X11100001 


8 HD6 


8 HDA 
8X11011010 


222 
8 HDE 
8X11011110 


226 
8 HE2 
8X11100010 


$X11010111 


a 


219 
8 HDB 
8X11011011 


8 HD4 
8X11010100 


216 
8 HD8 
8£X11011000 


220 
8 HDC 
8X11011100 


227 
8 HE3 
$X11100011 


224 
8, HEO 
8X11100000 


228 
8, HE4 
€£X11100100 


Para su referencia ... 


232 
8 HE5 8HE6 8HE7 8 HE8 
8X11100101 8X11100110 8X11100111 8X11101000 


233 234 235 236 
8 HE9 8 HEA 8¿HEB 8, HEC 
8X11101001 8X11101010 8X11101011 8X11101100 


237 238 239 240 
8 HED 8 HEE 8 HEF 8 HFO 
8X11101101 8Xx11101110 8X11101111 8X11110000 


0 DS 0 A E 
241 242 243 244 
8. HF1 8 HF2 8 HF3 8 HF4 
8X11110001 8X11110010 8X11110011 8X11110100 
Han un 
HT] 
CHIA] 
NORD 
E] 
245 246 247 248 
8 HF5 8 HF6 8 HF7 8 HF8 
8X11110101 8X11110110 8X11110111 8X11111000 
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EAT FR 
E 


249 250 251 
8 HF9 8 HFA 8 HFB 
8X11111001 8X11111010 8X11111011 8X11111100 


253 254 255 
8 HFD 8 HFE 8 HEF 
8X11111101 8X11111110 8X11111111 


> —  _ _ —— + + 6 + q yu 
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Parte 5: Esquemas del teclado 


Valores ASCH implícitos generados por las 
teclas (HEX) 


NJTUIASULSIUSUUUINLIUAASUTUASTUS USAN 


OOPADONPONBSES 
Hood dHtnnmooo 
Eabacl alla [818 EL] 
ATeTSTe Telefe TeTal Ela 
nl 1 ATA 


JOYSTICK O JOYSTICK 1 


OB 

OB 

O DISP. 1 DISP. 2 DISP. 1 DISP, 2 
58 JL SA 67 66 


OA 
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Códigos expansibles: posiciones y valores 
implícitos 


N/A EE] 
Desa SORREEnA de Mn 
fu EL 
A A 


+ 
Código Asignación implícita 
EApansible Carácter Valor ASCII 
0(123) 0 8:30 
1(129) 1 8:31 
2(130) 2 8:32 
3(31) 3 8:33 
4(132) 4 $34 
5(133) 5 8:35 
6(134) 6 8:36 
7(135) 7 8:37 
8(136) 8 8:38 
9(137) 9 8:39 
10(138) ; $:2E 
11(139) [RETURN] S£0D 
12(140) RUN“[RETURN] $:528:558:4E8:228:0D 
Nota. Los caracteres expansibles 13 a 31 (141 a 159) no tie- 
nen asignada ninguna cadena de expansión. Su expansión 
se puede definir con la orden KEY de BASIC, y se los pue- 
de asignar a teclas concretas con la orden KEY DEF. 


—_—_ ——_—z——————— _ — __ _ A 
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Números de las teclas y los joysticks 


[Tse [>]>]=>]=*]+* [TL L=T=] anna 
| es [0]. [58] 50 [5 [+]. [ejala] 
TT =L EE 


e EPEEREREERR 
¡E E DA [EN E E 


JOYSTICK O JOYSTICK 1 


— e 5 1 e 5 5 
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Parte 6: Sonidos 


Notas y periodos de tono 


La tabla siguiente da los valores recomendados para el parámetro (periodo de tono» 
correspondientes a los tonos y semitonos de las ocho octavas que puede producir el 
CPC664. 


Las frecuencias generadas no coinciden exactamente con las requeridas porque el (pe- 
riodo de tono)» tiene que ser un número entero. El “error relativo? es el cociente: 


frecuencia requerida-frecuencia generada 


frecuencia requerida 


expresado en porcentaje. 


FRECUENCIA PERIODO ERROR RELATIVO 


16.352 3822 -9.997% 
17.324 3698 +9. 997% 
18.354 33405 -9. 807% 
19.445 3214 -9. 004% 
26.602 3834 +9. 989% 
21.827 2863 -4,016% 
23.125 2703 +9. 999% Octava -4 
24.509 2551 -4. 082% 
239.257 2468 +4. 005% 
27.509 2273 +9.912% 
29.135 2145 -9. 448% 
39.368 2025 +9.911% 


FRECUENCIA PERIODO ERROR RELATIVO 


32.703 1911 -9. 407% 
34.648 1894 +9. 887% 
J3ó. 798 1793 +9.422% 
38.891 1507 -9. 004% 
41.293 1517 +9.009% 
43.654 1932 +8.819% 
46,24? 1331 -8.0428% Octava -3 
48.999 1276 +18.937% 
51.213 1204 +9. 903% 
35. 909 1136 -4.932% 
38.270 1973 +9. 039% 
61.733 1912 -4.038% 
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NOTA 


Cc DO 
CH DOR 
D RE 
DH REX 
E MI 
F FA 
FH FAR 
G SOL 
GH SOLA 
A LA 
AR LAR 
B SI 


NOTA 


Cc DO 
CH DOR 
D RE 
DH RER 
E mI 
F FA 
FRA FAR 
G SOL 
GH SOLA 
A LA 
AR LAR 


A B SI 


FRECUENCIA 


65.406 
69.296 
73.416 
77.782 
82.497 
87.397 
92.499 
97.799 
193.826 
110.909 
116.541 
123.471 


FRECUENCIA 


139.813 
138.591 
146.832 
155.564 
154.814 
174.614 
184.997 
195.998 
207.652 
220.009 
233.082 
246.942 


FRECUENCIA 


261.62é 
277.183 
293.665 
311.127 
329.628 
349,228 
369.994 
391.995 
915.393 
449.099 
466.163 
493.883 


PERIODO 


956 
982 
esi 
2854 
758 
716 
676 
638 
62 
568 
536 
56 


PERIODO 


478 
451 
426 
492 
379 
3538 
338 
319 
381 
284 
268 
2393 


PERIODO 


239 
225 
213 
291 
199 
172 
169 
159 
159 
192 
134 
127 


ERROR RELATIVO 


+8.0846% 
+8. 07% 
-8, 037% 
+0. 950% 
-8. 857% 
+8.919% 
+9.0846% 
tD.D37% 
+0. 905% 
-4. 032% 
-4, 055% 
9. 138% 


ERROR RELATIVO 


+9.046% 
+9. 007% 


+9. 


ac1% 


+9. 052% 
-4.9357% 
+8. 919% 


+9. 
+9, 
+9. 
-B, 


146% 
a37% 
gus% 
g32% 


-0. 053% 
-4. 033% 


ERROR RELATIVO 


+0, 
E, 
+9. 
+9. 
+0, 
+0. 
. 146% 
227% 
«328% 
«IZA 
.IS3% 
«356% 


145% 
215% 
a81% 
953% 
246% 
a19% 


Octava -2 


Octava -1 


DO media 


Octava Y 


LA 
internacional 
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FRECUENCIA PERIODO ERROR RELATIVO 


523.251 119 -9.374% 


CH DO+$ 554.365 113 +9.229% 
D RE 587.339 196 -9.390% 
DH REH 622.254 190 -4.441% 
E mI 659.255 95 +8. 206% 
F FA 698.457 29? -8.543% 
FR FAR 739,989 84 -8.548% Octava 1 
G  SsoL 783.991 39 +9. 359% 
GH SOLH 339.699 75 -9. 322% 
A LA 859. 999 21 -9. 832% 
AR LAR 932.328 672 -9. 055% 
E SI 987.767 63 -4. 435% 


FRECUENCIA PERIODO ERROR RELATIVO 


1946. 592 69 +9.462% 


CR DO+ 1198.731 Sé -8.662% 
D - RE 114.659 53 -9.399% 
DA REH 1244,598 59 -9.441% 
E mI 1318.519 47 -9.,855% 
F FA 1396.913 45 +9.574% 
FA FAR 1479.9783 42 -4. 548% Octava 2 
G SOL 1567.982 49 +98. 359% 
GH SOLH 1661.219 38 +9.992% 
A LA 1769.999 36 +1.357% 
AR LAR 1264.655 34 +1.417% 
E SI 1975.533 32 +1.134% 


FRECUENCIA PERIODO ERROR RELATIVO 


2993. 004 30 +9. 462% 


CA DO+ 2217.641 28 -90.662% 
D RE 2349.318 27 +1.469% 
DÁ RERH 2489.016 25 -8.441% 
E MI 2637.921 24 +t1.246% 
F FA 2793.826 22 -1.685% 
FA FAR 2959.955 21 -98.548% Octava 3 
G SOL 3135.963 29 +8. 350% 
GH SOL+H 3322.438 19 +9.992% 
A LA 3529. 099 18 +1.357% 
AR LAR 3729.319 17 +1.417% 
B sI 3951.066 1ó +1.134% 
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1 1 1 5 —— 


Estas frecuencias han sido calculadas a partir de la correspondiente a la nota LA inter- 
nacional mediante la siguiente fórmula: 


FRECUENCIA=449% (24 (OCTAVA+ ((N-19)/12))) 
PERIODO=ROUND (42599/FRECUENCIA) 


donde N es 1 para DO, 2 para DOF, etc. 


Parte 7: Mensajes de error de BASIC 


1 Unexpected NEXT 


Se ha encontrado un NEXT que no corresponde a ningún FOR, o bien la variable men- 
cionada tras NEXT no coincide con la de FOR. 


2 Syntax error 


BASIC no puede entender la línea porque algo en ella no se ajusta a las reglas de sinta- 
xis del lenguaje. 


3 Unexpected RETURN 


Si ha encontrado una orden RETURN fuera de una subrutina. 


4 DATA exhausted 


Una orden READ ha intentado leer más datos de los incluidos en líneas DATA. 


S Improper argument 


Este es un error no específico. Puede haber algo incorrecto en el argumento de una fun- 
ción o en un parámetro de una orden. 


A e 
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yy o 


ó6 Overflow 
El resultado de una operación aritmética ha sobrepasado los márgenes aceptables. Si 
ha ocurrido en un número en punto flotante, el resultado ha sido mayor que 1.7E +38 


(aprox.). También puede haber ocurrido al intentar convertir un número en punto flo- 
tante en un entero con signo de 16 bits. 


7 Memory full 


El programa actual o sus variables ocupan demasido espacio en la memoria, el anida- 
miento de la estructura de control es demasiado profundo (demasiadas órdenes GO- 
SUB, WHILE o FOR anidadas). 


La orden MEMORY provoca este error si se intenta situar el límite de la memoria acce- 
sible a BASIC demasiado bajo, o tan alto que sea imposible. Obsérvese que los ficheros 
abiertos tienen un tampón dedicado a ellos, lo que puede restringir los valores correctos 
de MEMORY. 


2 Line does not exist 


Se ha mencionado un número de línea que no existe en el programa. 


? Subscript out of range 


Uno de los subíndices mencionados en una lista es demasiado pequeño o demasiado 
grande. 


19 Array already dimensioned 


Una de las listas declaradas en una orden DIM ya ha sido dimensionada antes. 


11 Division by zero 


División por cero, que puede ocurrir en la división de números reales, en la división 
entera, en la operación MOD y en la exponenciación. 


12 Invalid direct command 


Se ha intentado dar como orden directa una orden que sólo es válida si va precedida 
de un número de línea. 


xFÉF_óÓ-_Ó>«4«<« mA e e 
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13 Type mismatch 


Incongruencia de tipos. Un dato es literal cuando tenía que ser numérico, O viceversa, 
o se ha introducido un dato no numérico en READ o INPUT. 


14 String space full 


Se han creado demasiadas cadenas literales y ya no hay espacio disponible para más, 
incluso después de reorganizar la memoria. 


15 String too long 


Una cadena literal consta de más de 255 caracteres. Puede haber sido generada por con- 
catenación de otras. 


16 String expression too complex 


Expresión literal demasiado compleja. Las expresiones literales pueden generar valores 
intermedios; cuando el número de estos valores excede de un límite razonable, se pro- 


duce este error. 


17 Cannot CONTinue 


No se puede reanudar la ejecución del programa con CONT. Obsérvese que CONT rea- 
nuda el programa después de una instrucción STOP, de [ESCI[ESC] o de un error, 
pero a condición de que no se modifique el programa durante la pausa. 


18 Unknown user funct10n 


Se ha invocado una EN sin la correspondiente DEF FN. 


19 RESUME missing 


Se ha llegado al final del programa mientras se ejecutaba una rutina de gestión de erro- 
res (esto es, una rutina invocada por ON ERROR GOTO). 


29 Unexpected RESUME 


RESUME sólo es válida en una rutina de gestión de errores (esto es, en una rutina invo- 
cada por ON ERROR GOTO). 


A _x_._-=-_—__—__—____A<-á=>=> Ig _AAK2/<—> 
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— _—_ _ _—_—_— Q_Q______ | 


21 Direct command found 


Al cargar un fichero se ha encontrado una línea sin número de línea. 


22 Operand missing 


BASIC ha encontrado una expresión incompleta. 


23 Line too long 


BASIC ha convertido a su forma interna una línea y ésta ha resultado ser demasiado 
larga. 


24 EOF met 


Se ha intentado leer más allá del final del fichero de entrada. 


25 File type error 


El fichero que se ha leído no es del tipo adecuado. OPENIN sólo puede abrir ficheros 
de texto ASCII. Análogamente, LOAD, RUN, etc., solamente pueden acceder a fiche- 
ras creados por SAVE. 


26 NEXT missing 


BASIC ha encontrado un FOR al que no corresponde ningún NEXT. La línea mencio- 
nada tras el mensaje es aquella en la que se encuentra el FOR. 


27 File already open 


Se ha ejecutado una orden OPENIN u OPENOUT sin previamente cerrar el fichero que 
estaba abierto. 


28 Unknown command 
BASIC no encuentra un comando externo que corresponda a lo que se ha escrito tras !. 


————_—_— AAA 
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¡ 


29 WEND missing 


BASIC ha encontrado un WHILE al que no corresponde ningún WEND. 


39 Unexpected WEND 

Se ha encontrado un WEND que no corresponde a ningún WHILE, o bien el WEND 
no concuerda con el WHILE del bucle actual. 

31 File not open 


Véase la sección “Errores de disco”. 


32 Broken in 


Véase la sección “Errores de disco”. 


Errores de disco en AMSDOS 


Hay varios errores que pueden producirse con ocasión del manejo de ficheros en disco. 
BASIC da a todos ellos el número de ERR 32; no obstante, DERR contiene informa- 
ción más específica cuando se detecta ese número de error. Los valores de DERR tienen 


el siguiente significado: 


AMLO Mo Causa del error 

0 00 22 Se ha pulsado [ESC]. 

14 142 (128+14) El canal no se encuentra en situación correcta. 

15 143 (128415) Se ha alcanzado el final físico del fichero. 

16 144 (128+16) Orden incorrecta: generalmente nombre de fichero in- 
correcto. 

17 145 (128+17) El fichero ya existe. 

18 146 (128+18) El fichero no existe. 

19 147 (128419) El directorio está lleno. 

20 148 (128 +20) El disco está lleno. 

21 149 (128+21) Se ha cambiado el disco cuando había ficheros abiertos 
en él. j 

22 150 (128 +22) El fichero es de “sólo lectura”. 

26 154 (128426) Se ha llegado al final de los datos grabados en el fi- 
chero (final lógico del fichero). 


eee E 
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x«_EFrRR—— o o 


Si AMSDOS ya ha informado de un error, el bit 7 de DERR está a 1 y por lo tanto 
todos los valores de DERR están desplazados en 128 unidades. 


Otros valores generados por DERR proceden del controlador del disco. Su significado 
se analiza bit a bit. El bit 6 siempre está a 1. El bit 7 indica si AMSDOS ha informado 
del error (según se ha explicado antes). El significado de los bits es el siguiente: 


S 
+ 


Significado 


Falta marca de direcciones. 

No escribible. El disco está protegido. 

Faltan datos. No se puede encontrar el sector. 

No hay disco en la unidad, unidad no preparada. 

Error de sincronización (velocidad). 

Error de datos. Error CRC (comprobación de redundancia cíclica). 

Siempre a 1, para indicar que es un error detectado por el controlador del disco. 
A 1 si AMSDOS ya ha informado del error. 


AO Mah ynN-o 


ERR también puede dar el valor 31 si se ha intentado el acceso sin haber ningún fichero 
abierto. La forma recomendable de utilizar ERR y DERR consiste en incluir una ins- 
trucción ON ERROR GOTO que invoque una pequeña subrutina en la cual se com- 
pruebe si ERR es 31 o 32; si es 32, se puede examinar DERR para obtener mayor infor- 
mación sobre la naturaleza del error. Por ejemplo: 


19 ON ERROR GOTO 1809 

29 OPENOUT "+fichero.asc" 

39 WRITE $2, "prueba-datos” 

49 CLOSEOUT 

59 END 

1999 erramsdos=(DERR AND £7F): REM mascara para bit 7 

1819 IF ERR<31 THEN END 

1929 1F ERR=31 THEN PRINT "Esta seguro de que ha tecleado 
la linea 29 correctamente?" : END 

18939 IF erramsdos=28 THEN PRINT "Disco lleno; ponga otro 
disco de datos.":END 

1949 IF erramsdos=X91091999 THEN PRINT "Inserte un disco 
en la unidad y luego pulse una tecla.":WHILE INKEY+$= 
"" WEND: RESUME 

1959 END 


xERRSX_— ooo 
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Parte 8: Palabras reservadas de BASIC 


A continuación damos la lista de las palabras reservadas para el BASIC de AMSTRAD 
CPC6128, las cuales, por consiguiente, no pueden ser utilizadas como nombres de 
variables. 


ABS, AFTER, AND, ASC, ATN, AUTO 


BIN$, BORDER 


CALL, CAT, CHAIN, CHR$, CINT, CLEAR, CLG, CLOSEIN, 
CLOSEOUT, CLS, CONT, COPYCHRS$, COS, CREAL, CURSOR 


DATA, DECS, DEF, DEFINT, DEFREAL, DEFSTR, DEG, DELETE, 
DERR, DI, DIM, DRAW, DRAWR 


EDIT, El, ELSE, END, ENT, ENV, EOF, ERASE, ERL, ERR, 
ERROR, EVERY, EXP 


FILL, FIX, FN, FOR, FRAME, FRE 
GOSUB, GOTO, GRAPHICS 
HEX$, HIMEM 


IF, INK, INKEY, INKEYS$, INP, INPUT, INSTR, INT 
JOY 


KEY 


LEFTS$, LEN, LET, LINE, LIST, LOAD, LOCATE, LOG, LOG19, 
LOWERS$ 


MASK, MAX, MEMORY, MERGE, MID$, MIN, MOD, MODE, MOVE, 
MOVER 


NEXT, NEW, NOT 


ON, ON BREAK, ON ERROR GOTO 9, ON SQ, OPENIN, OPENOUT, 
OR, ORIGIN, OUT 


PAPER, PEEK, PEN, PI, PLOT, PLOTR, POKE, POS, PRINT 
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RAD, RAMDOMIZE, READ, RELEASE, REM, REMAIN, RENUM, 
RESTORE, RESUME, RETURN, RIGHTS, RND, ROUND, RUN 


SAVE, SGN, SIN, SOUND, SPACES, SPC, SPEED, SQ, SOR, STEP, 
STOP, STR%$, STRING$, SWAP, SYMBOL 


TAB, TAG, TAGOFF, TAN, TEST, TESTR, THEN, TIME, TO, 
TROFF, TRON 


UNT, UPPER, USING 

VAL, VPOS 

WAIT, WEND, WHILE, WIDTH, WINDOW, WRITE 
XOR, XPOS 

YPOS 


ZONE 


x$cExXÁ 
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AU A UE o A O 


PI 44,7 


E 


Parte 9: Plantillas 


Pantalla de texto; modo 0 (20 columnas) 


“o NA 0 4 0 0 A +4 .56.0020 1 ON 00:70 ,.£. .£;5 0.692 S RRA 


A 
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“u 15 y “a 
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Pantalla de texto; modo 1 (40 columnas) 


GOMERA EE AAA 
A € eel 
O E 1 5 0110 E E E E 
MES 
SANAR ARA AMA 
E 0 E 65 120 


7/36 
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modo 2 (80 columnas) 


e 
, 


Pantalla de texto 


a, 


08 8£ 8L£ ve£ 7£ OL 89 9% vs Zg 09 8a 9syYgoza 09 8% 99 rr z» SE 99€ vE ZE 0€ 8 8Z vZ 22 07 8 9 vt zio. 9 T 

HAHAHA TT) DOOR ADA DADODOD AD ADAQ DIO BRO LADRAR LADRA , 

Add» 

AHH 
|] 


CA» 


YS 73 05 Mb 9% tb  Zb 0 BE 9 vE ZE 0€ 82 8Z pl ZZ 0% BL 9L yl ZLO0o 8 92. ms ¡ 


08 8£ 8£ ve 7Z£ 0L 89 9 y 29 
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ido/música 


de son 


Envolventes 
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Parte 10: Conexiones 


Zócalos de entradas y salidas del CPC6128 


SEGUNDA UNIDAD DISCO 
MONITOR 


Zócalo del joystick 
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¡IMPRESORA 


EXPANSION 


VISTO POR DETRAS 


Patilla 1 ARRIBA 
Patilla 2 ABAJO 
Patilla 3 IZQUIERDA 
Patilla 4 DERECHA 
Patilla 5 N/C 


Patilla 6 DISPARO 2 
Patilla 7 DISPARO 1 
Patilla 8 MASA 2 
Patilla 9 MASA 


CINTA ESTEREO 
JOYSTICK 
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Zócalo del monitor 


VISTO POR DETRAS 


Patilla 1 ROJO Patilla 4 SINC 
Patilla 2 VERDE Patilla 5 MASA 
“Patilla 3 AZUL Patilla 6 LUM 


Zócalo estéreo 
DERECHO 
| ax pp ———— IZQUIERDO 
A e N DERECHO 
| | MASA 


| 


MASA IZQUIERDO 


Patilla 1 CANAL IZQUIERDO 
Patilla 2 CANAL DERECHO 
Patilla 3 MASA 


Zócalo de cinta 


VISTO POR DETRAS 


Patilla 3 CONTROL REMOTO 


Patilla 1 CONTROL REMOTO Patilla 4 ENTRADA DE DATOS 
Patilla 2 MASA Patilla 5 SALIDA DE DATOS 
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Zócalo de expansión 


VISTO POR DETRAS 


49 47 45 43 41 39 37 35 23 31 29 27 25 23 21 19 17 15 13 11 9 7 5 3 61 


50 48 48 44 42 40 38 36 34 32 30 22 26 AM 22 20 18 16 14 12 10 B 6. 4 2 


r] us 
Patilla 1 SONIDO Patilla 18 AO Patilla 35 INT 
Patilla 2 MASA Patilla 19 D7 Patilla 36 NMI 
Patilla 3 AIS Patilla 20 D6 Patilla 37 BUSR2 
Patilla 4 Al4 Patilla 21 DS Patilla 38 BUSAK 
Patilla 5 A13 Patilla 22 D4 Patilla 39 READY 
Patilla 6 A12 Patilla 23 D3 Patilla 40 BUS RESET 
Patilla 7 A11 Patilla 24 D2 Patilla 41 RESET 
Patilla 8 Al10 Patilla 25 D1 Patilla 42 ROMEN 
Patilla 9 A9 Patilla 26 DO Patilla 43 ROMDIS 
Patilla 10 A8 Patilla 27 +5v Patilla 44 RAMRD 
Patilla 11 A7 Patilla 28 MREQ Patilla 45 RAMDIS 
Patilla 12 A6 Patilla 29 MI Patilla 44 CURSOR 
Patilla 13 A5 Patilla 30 RFSH Patilla 47 LAPIZ OPTICO 
Patilla 14 A4 Patilla 31 TORQ Patilla 48 EXP 
Patilla 15 A3 Patilla 32 RD Patilla 49 MASA 
Patilla 16 A2 Patilla 33 WR Patilla 50 
Patilla 17 Al Patilla 34 HALT 


Zócalo para la segunda unidad de disco 


VISTO POR DETRAS 


24 6.8 .0s1412.14 16 18 20 22 24 26 28 30 32 34 


1.3.5 7 9 1113 15 17 19 2 23 25 27 29 31 33 


Patilla 1 READY Patilla 18 MASA 
Patilla 2 MASA Patilla 19 MOTOR ON 
Patilla 3 SIDE 1 SELECT Patilla 20 MASA 
Patilla 4 MASA Patilla 21 N/C 

Patilla 5 READ DATA Patilla 22 MASA 
Patilla 6 MASA Patilla 23 DRIVE SELECT 1 
Patilla 7 WRITE PROTECT Patilla 24 MASA 
Patilla 8 MASA Patilla 25 N/C 

Patilla 9 TRACK 0 Patilla 26 MASA 
Patilla 10 MASA Patilla 27 INDEX 
Patilla 11 WRITE GATE Patilla 28 MASA 
Patilla 12 MASA Patilla 29 N/C 

Patilla 13 WRITE DATA Patilla 30 MASA 
Patilla 14 MASA Patilla 31 N/C 

Patilla 15 STEP Patilla 32 MASA 
Patilla 16 MASA Patilla 33 N/C 

Patilla 17 DIRECTION SELECT Patilla 34 MASA 
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Zócalo para la impresora 


VISTO POR DETRAS 


35 M103 32 -3.3902%02 27 26 25 24 23 2 21 20 19 


=—— 
Patilla 1 STROBE Patilla 19 MASA Z 
Patilla 2 DO Patilla 20 MASA 
Patilla 3 Dl Patilla 21 MASA 
Patilla 4 D2 Patilla 22 MASA 
Patilla 5 D3 Patilla 23 MASA 
Patilla 6 D4 Patilla 24 MASA 
Patilla 7 DS Patilla 25 MASA 
Patilla 8 D6 Patilla 26 MASA 
Patilla 9 Patilla 27 MASA 
Patilla 11 BUSY Patilla 28 MASA 
Patilla 14 MASA Patilla 33 MASA 
Patilla 16 MASA Todas las demás: N/C 


Parte 10: Impresoras 


Interfaz 


Al CPC6128 se le puede conectar cualquier impresora que tenga “interfaz paralelo tipo 
Centronics” de 7 bits. 


El cable es fácil de construir, pues no tiene que realizar más que una conexión biunivo- 
ca entre el zócalo IMPRESORA del ordenador y el conector de la impresora. Nótese 
que en la salida del ordenador hay dos terminales menos que en el conector de la impre- 
sora, con objeto de permitir la utilización de un conector estándar para circuito 
impreso. 


Los detalles de las patillas del interfaz están ilustrados en la parte 9 de este capítulo. 


El cable debe conectar el terminal 1 del ordenador con el 1 de la impresora, el 19 del 
ordenador con el 19 de la impresora, etc. Sin embargo, los terminales 18 y 36 de la im- 
presora no deben ser conectados al ordenador. Obsérvese que aunque los terminales 
de la fila superior del zócalo IMPRESORA del ordenador están numerados del 1 al 
17, la numeración de la fila inferior empieza en el 19, no en el 18, para mantener la 
correspondencia con el conector de la impresora. 


El ordenador utiliza la señal BUSY (patilla 11) para sincronizar con la impresora y es- 
pera cuando ésta está en OFF-LINE (fuera de línea). 
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No es necesario enviar a la impresora códigos de preparación; la salida del ordenador 
se dirige a la impresora especificando el canal $8. 


La salida PRINTER está diseñada para conectar impresoras de matriz de puntos de 
bajo costo. No obstante, con el interfaz adecuado, se le pueden conectar impresoras 
de margarita, plotters e impresoras de color por chorro de tinta. La compatibilidad está 
asegurada por el interfaz paralelo. 


La programación incorporada a la impresora AMSTRAD DMP] facilita el funciona- 
miento en modo gráfico así como los volcados de pantalla. 


Configuración de la impresora 


Se ha incluido una función que permite que los caracteres que aparecen en la pantalla 
y pueden ser generados por la AMSTRAD DMP1 se escriban en el papel tal como se 
los ve en la pantalla, aun cuando los códigos que tienen en el ordenador no coincidan 
con los que tienen en la impresora. La mayor parte de estos signos sólo está disponible 
cuando en la impresora se ha seleccionado un idioma distinto del inglés. Por ejemplo: 


PRINT CHR$( 49) 

* (en la pantalla) 

PRINT $48, CHR$(2:A9) 
* — (tawbién en la impresora) 


Esto ocurre así a pesar de que el código del acento circunflejo en la impresora es «5E. 
Dicho de otra forma, la programación de la impresora ha reconocido el £A0 como uno 
de los códigos que tiene en su tabla de traducción y lo ha convertido en «BE para escri- 
birlo con la misma forma que en la pantalla. El código «BE produce el acento circunfle- 
jo cualquiera que sea el idioma seleccionado (no se puede decir lo mismo de los demás 
códigos que hay en la tabla de traducción). Los restantes caracteres de la tabla son los 
siguientes: 


E EÍ Sign rito en el 1 
Carácter | Traducción Ene Eppape 


CHR$ | enla en la eto | 
pantalla impresora ; EE.UU | Francia | Alemania España 
Unido 
Ñl 

SAO A Sé:5E AS ÉS de A áN 
SLA2 ES $7B 1 1 1 1 

S1A3 P $23 £ $4 $H $4 P: 
SiA6 $ . 840 1 1 1 $ 1 

S AE ¿ £5SD 1 1 1 1 ¿ 
SAF ¡ £5B 1 1 1 1 ¡ 


j Véase la página 18 del manual de la DMP1. 
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La tabla anterior es un extracto de las traducciones implícitas, que se pueden modificar 


a voluntad. Véase el manual del firmware (SOFT 968) para más detalles. 


Parte 12: Joysticks 


El ordenador puede funcionar con uno o dos joysticks. La máquima los considera co- 
mo parte del teclado, y por consiguiente su estado se puede determinar con INKEY e 
INKEYS. 


Nótese que en la mayor parte de los casos, el botón principal de disparo del joystick 
es interpretado como “DISP.2* por el CPC6128. 


Las funciones JOY(0) y JOY(1) permiten inspeccionar directamente los dos joysticks. 
Cada una de estas funciones genera un resultado, interpretable bit a bit, que informa 
de la situación de los interruptores del joystick en el momento en que se realizó la últi- 
ma comprobación del teclado. : 


La tabla siguiente indica los valores generados por los dos joysticks. Además de los 
números de la función JOY, se incluyen los números que se deben utilizar en instruc- 
ciones que llevan como parámetro los números de las teclas (tales como INKEY y KEY 
DEP). 


Estado Función JOY Números de tecla 


Bit que Valor Primer Segundo Tecla 
está a 1 generado | joystick joystick equivalente 
4 


Arriba 0 1 72 48 6 
Abajo 1 2 73 49 ES? 
Izquierda 2 4 74 50 R” 
Derecha 3 8 75 51 “II? 
Disparo 2 4 16 76 s2 “G 
Disparo 1 5 32 nm 53 Pp 


Nótese que cuando se generan los valores correspondientes al segundo joystick, el orde- 
nador no puede saber si esos valores han sido generados por el joystick o por las teclas 
equivalentes (última columna de la tabla anterior). Esto representa que se puede utilizar 
el teclado como sustituto del segundo joystick. 
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Parte 13: Organización de los discos 


El BIOS maneja tres formatos de disco diferentes: formato SISTEMA, formato SOLO 
DATOS y formato IBM. AMSDOS detecta automáticamente el formato cada vez que 
accede a un disco en el que no haya ficheros abiertos. Para permitir esta detección auto- 
mática, en cada formato los sectores se numeran de forma diferente. 


Los discos de 3 pulgadas tienen dos caras utilizables, aunque no al mismo tiempo. Cada 
cara pu '2 haber sido inicializada con un formato distinto. 


Común a todos los formatos: 


Una sola c: a (las dos caras del disco de 3 pulgadas se tratan por separado). 
Capacidad física - e cada sector: 512 bytes. 

40 pistas, numeradas del O al 39. 

Tamaño de bloque de .M: 1024 bytes. 

Directorio de 64 reseñas. 


Formato SISTEMA 


9 sectores por pista, numerados del £41 al £49. 
2 pistas reservadas. 


Es el formato principal, ya que CP/M sólo puede ser cargado con un disco que tenga 
este formato. CP/M 2.2 exige además que se inserte en la unidad un disco con formato 
de sistema para los arranques iniciales. Las pistas reservadas se utilizan de la siguiente 
forma: 


Pista 0 sector £41: sector de carga automática | sector de carga automática para CP/M Plus 
Pista O sector $42: sector de configuración 

Pista O sectores $43 a $£47: no utilizadas 

Pista 0 sectores 848 y $49: no utilizadas 

Pista 1 sectores 41 a $49: | EEC BROS 


Nótese que el formato COMERCIAL es una versión especial del formato SISTEMA 
en la que no se graban las pistas reservadas. Este es el formato en que se graban los 
programas que se venden en el comercio. 
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Formato SOLO DATOS 


9 sectores por pista numerados del £C1 al £C9, 
Ninguna pista reservada. 


Este formato está diseñado para su desarrollo en el futuro. No se recomienda utilizarlo 
con CP/M 2.2, pues no permite cargar el sistema operativo. No obstante, si sólo se va 
a utilizar el disco con AMSDOS o CP/M Plus, se lo puede inicializar con este formato 
para disponer de más espacio. 


Formato IBM (sólo en CP/M 2.2) 


8 sectores numerados del £:1 al 8:8. 
1 pista reservada. 


Este formato coincide con el formato de una sola cara utilizado por el CP/M del IBM 
PC. El 6128 puede leer y escribir en discos de este formato, pero no puede crearlos ni 
copiarlos. 


Parte 14: Ampliaciones del sistema 
residentes (RSX) 


En el capítulo 5, al hablar de AMSDOS, ya hemos.mencionado las “órdenes externas”. 
En esencia, una orden externa es una forma de ampliar el repertorio de BASIC aña- 
diéndole instrucciones nuevas, todas las cuales van precedidas del signo ¡. Las rutinas 
que llevan a cabo las acciones de las órdenes externas de AMSDOS están grabadas en 
la ROM; el ordenador realiza todas las operaciones necesarias para hacer accesibles es- 
tas Órdenes cuando entra en BASIC. 


Pero también es posible incorporar nuevas órdenes externas (cuando BASIC está ya 
activo) cargando las instrucciones de código de máquina adecuadas en la RAM. Tales 
órdenes externas son las “ampliaciones del sistema residentes' (RSX) y actúan exacta- 
mente igual que las basadas en la ROM. Las RSX han de ser cargadas desde el disco 
(o la cinta) cada vez que se entra en BASIC. La aplicación habitual de la RSX es el 
control de periféricos “inteligentes”, tales como lapiceros ópticos o sintetizadores de 
VOZ. 


En el capítulo 8 se explica cómo utilizar las RSX para acceder al segundo banco de 64K 
de memoria del 6128. 


a y 0D DD ODO DO OOO DO 


7/46 Para su referencia ... 


Parte 15: Memoria 


El CPC6128 dispone de 128K de RAM y 48K de ROM. Esta memoria es utilizable por 
BASIC 1.1 según se indica en la figura siguiente. El primer banco de 64K de RAM está 
dividido nominalmente en cuatro bloques (de 16K cada uno), numerados del 0 al 3. 
La pantalla utiliza el bloque 3; la zona superior del bloque 2 está dedicada a las varia- 
bles de sistema, según se muestra en la figura. 


PRIMER BANCO SEGUNDO BANCO 
DE 64K DE RAM DE 64K DE RAM 
r SER 
F 
BLOQUE , A 
l OM p 
i E Dis 
2:00 ¡ | de 
r - 
[CRA 1 AREA DATOS FIRMWARE 


CAR 
HiMeso" DEFIN, 110 > BLOQUE DE SALTOS 
* USUARIO] “Y AREA DATOS BASIC 
“lO AREA DATOS ROM DISCO 
Le:8000 AREA DATOS OTRAS ROM 


' 
, 
I 
1 
l 
1 
, 
' 
da | 
1 
1 
1 
l 
1 
1 
' 


: ) 
poo 2 
P AREA PARA PROGRAMA DE BASIC Ñ 
Bla: 1 4 , 
QUE o? 
1 
E 1 ROm 
WAR 


sal 


Nota 1. Depende de las ROM externas conectadas. Es £:A6FC cuando no hay ninguna 


Mapa de memoria para BASIC 1.1 


Los caracteres definidos por el usuario están inicialmente inmediatamente por encima 
de HIMEM. Este valor se puede modificar mediante una orden MEMORY; además 
se reduce en 4K automáticamente para crear un tampón cada vez que se abre un fiche- 
ro. El número de caracteres definibles por el usuario (controlado por la orden 
SYMBOL AFTER de BASIC) sólo se puede modificar si HIMEM no ha variado desde 
la última vez que aquél fue establecido (o si en esa ocasión se estableció en cero, con 
SYMBOL AFTER 256). Cuando se entra en BASIC, el número de caracteres definibles 
por el usuario se establece como si se hubiera ejecutado la orden SYMBOL AFTER 


240. 


Por consiguiente, antes de cambiar permanentemente HIMEM, es prudente reducir a 
cero la zona de memoria dedicada a los caracteres definibles; después se modifica HI- 
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A O o 


MEM y finalmente se restablece la zona de caracteres definibles al tamaño deseado. 
De esta manera los siguientes programas podrán ejecutar nuevas órdenes SYMBOL 
AFTER sin problemas. 


El siguiente ejemplo ilustra este método, aplicado a la carga de una RSX: 


199 SYMBOL AFTER 256 * anular memoria para caracteres 
definibles por el ususario 

119 direccionrsx=HIMEM-iongitudrsx 

120 MEMORY direccionrsx-1 

139 LOAD *codigrsx",direccionrsx 

148 CALL direccionrsx * inicializar rsx 

159 SYMBOL AFTER 149 ”?” restablecer espacio para carac 

teres definibles 


AN 
Ea | 


R 
AS Y | AREA DATOS FIRMWARE 
Hime DEN TOS DE y BLOQUE DE SALTOS 
EM "US UAR AREA DATOS BASIC 
EN AREA DATOS ROM DISCO 


AREA DATOS OTRAS ROM 


e 
ol 


Mapa de memoria con las RSX cargadas en la posición recomendada 


Otras entradas y salidas 


La mayor parte de las direcciones de puertas de entrada/salida (E/S) está reservada por 
el ordenador. En particular, las direcciones inferiores a £«7FFF no se deben utilizar 
nunca. 


Está previsto que la parte de la dirección representada por A0-A7 refleje el tipo de dis- 
positivo externo de E/S, y que las líneas de dirección A8 y A9 puedan ser decodificadas 
para seleccionar registros dentro del dispositivo de E/S. De las restantes líneas, sólo 
A10 puede ser decodificada (a nivel “bajo”); las líneas A11 a A15 están todas a nivel 
“alto”. Así, los registros de los dispositivos se pueden direccionar como £:F8??,8:F9??, 


e o 0 CO O ODO DO O DO O DO DO OO O O 
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£FA?? y £FB??, donde ?? puede estar entre DC y FF para los interfaces de comunica- 
ción y entre E0 y FE para otros periféricos. 


Nótese que se deben utilizar instrucciones del Z80 que pongan el registro B en la mitad 
superior del bus de direcciones (A15-A8). 


Memorias ROM adicionales 


El sistema operativo está preparado para seleccionar ROMs adicionales en lugar de 
parte de la ROM interna. La lógita de gestión de direcciones y de selección de bancos 
estará en un módulo conectado al bus de expansión, pero todas las señales necesarias 
están en el corrector de expansión. 


Parte 16: Emulador de consola de CP/M 
Plus 


En la parte 1 de este capítulo hemos dado una tabla de caracteres de control con la 
descripción de sus efectos. Tales efectos son los que se producen cuando se envían los 
caracteres a la pantalla de texto desde BASIC o desde CP/M 2.2. Estas acciones han 
sido elegidas con los criterios de sencillez y de conseguir que ilustren algunas de las fun- 
ciones disponibles en el bloque de “Text VDU” (pantalla de texto) del firmware. Estas 
funciones san peculiares de los ordenadores Amstrad, y por lo tanto los programas de- 
ben ser amoldados a ellas. 


En el contexto de las aplicaciones comerciales que se programan para CP/M Plus, es 
normal esperar que los ordenadores dispongan de ciertas funciones estándar de control 
de la pantalla de texto, de modo que los programas sean fácilmente *“trasladables”” de 
una máquina a otra. La implementación de CP/M Plus en el CPC6128 incluye un emu- 
lador de consola que proporciona funciones de control similares a las del terminal Ze- 
nith Z19/Z29. El procedimiento de instalación de los programas escritos para CP/M 
Plus incluirá normalmente una opción para terminales de este tipo. 


Entre las funciones incorporadas en el emulador de consola de CP/M Plus se encuen- 
tran muchas de las antes ofrecidas en el grupo “Text VDU” del firmware, aunque con 
diferentes códigos de control. Pero en CP/M Plus se dispone de un número considera- 
ble de operaciones nuevas y más complejas. 


Los caracteres del margen de %20 a «FF se exhiben en la pantalla en la posición actual 
del cursor. Además, si el cursor no está en la última columna, se lo desplaza una posi- 
ción a la derecha; si el cursor está en la última columna y está activada la continuidad 
de las líneas, se lo coloca en la primera columna de la línea siguiente, desplazando la 
pantalla hacia arriba si es necesario. 
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K— A —á KklVG-z-z 006% | 


Los caracteres del margen de £00 a £:1F se interpretan como códigos de control, según 
la siguiente tabla: 


$07 BEL Produce un pitido. 


$08 BS 
S0A LF 
S£0D CR 


Retroceso del cursor. Mueve el cursor una posición hacia la izquierda. 
Si el cursor está en la primera columma (pero no en la primera fila) y 
está activada la continuidad de las líneas, se lo coloca en la última co- 
lumna de la fila anterior. 


Avance de línea. Se baja el cursor a la línea siguiente, desplazando la 
pantalla hacia arriba si es necesario. 


Retorno del carro. Lleva el cursor a la primera columna de la fila 
actual. 


Se ignoran todos los demás códigos de control. 


El emulador de consola reconoce las siguientes secuencias de “escape”. Todos los demás 
caracteres son exhibidos en la pantalla (con el consiguiente avance del cursor) aunque 
vayan precedidos del código de escape. Gracias a esta característica es posible enviar 
a la pantalla los caracteres visibles correspondientes a los códigos de control del £:00 
al £1F. (Obsérvese, no obstante, que en muchas aplicaciones se reinterpreta el código 
de control £09 (TAB) para que signifique cierto número de espacios; en tales casos la 
secuencia [ESC][TAB] no visualizará el carácter $:09.) 


[ESC]O 


[ESC]1 


[ESC]2(n> 


Desactiva la línea indicadora de estado. Los mensajes del sistema 
de disco aparecen en la pantalla principal, en la cual puede utilizar 
también la última línea. 


Activa la línea de estado. Los mensajes del sistema de disco apare- 
cen en la última línea de la pantalla. 


Selecciona un juego de caracteres (véase la parte 16 de este capítu- 
lo). (n) es el parámetro selector de idioma, que se enmascara con 
$07. La acción consiste en intercambiar ciertas matrices de caracte- 
res del margen de 8:20 a £7F con otras del margen de 8:80 a £FF; 
es muy similar a la que se realiza con impresoras que disponen de 
varios juegos de caracteres seleccionables por programa. 


(n>)=0 EE.UU. 
<n>)=1 Francia 
<n>=2 Alemania 
<n>=3 Reino Unido 
<n>=4 Dinamarca 
<n>»=5 Suecia 
<n>=6 Italia - 
<n>=7 España 


€ 


7/50 


Para su referencia ... 


[ESCI3<m)> 


[ESC]A 
[ESC]B 
[ESC]C 
[ESC]D 


[ESC]E 


[ESC]H 


[ESC]I 


[ESC]J 


[ESC]K 


[ESC]IL 


[ESC]M 


[ESC]N 


[ESC]Y (1) <c) 


[ESC]b( pc) 


Selecciona el modo de pantalla. (m)>=modo+é:20. El valor se en- 
mascara con é:3 para limitarlo al margen de 0 a 2. El modo 3 se igno- 
ra. Se borra la pantalla, pero no se modifica la posición del cursor. 


Cursor arriba. Si ya está en la primera línea, ningún efecto. 
Cursor abajo. Si ya está en la última línea, ningún efecto. 
Cursor a la derecha. Si ya está en la última columna, ningún efecto. 


Cursor a la izquierda. Si ya está en la primera columna, ningún 
efecto. 


Borrar página. La posición del cursor no se modifica. Esta secuencia 
borra la página entera, aunque se haya seleccionado el modo 
de 24x80. (Hay otros códigos de escape que sólo afectan al área 
24x80 cuando está seleccionado este modo.) 


Cursor a la posición inicial. Lleva el cursor a la primera columna de 
la primera fila. 


Retroceso de línea. Sube el cursor a la línea anterior, desplazando 
la pantalla hacia abajo si es necesario. 


Borrar hasta el final de la página (incluido el carácter que está en la 
posición del cursor). No se modifica la posición del cursor. 


Borrar hasta el final de la línea (incluido el carácter que está en la 
posición del cursor). No se modifica la posición del cursor. 


Insertar línea. La línea en la que está el cursor y todas las siguientes 
se desplazan hacia abajo; se borra la línea del cursor; la posición de 
éste no se modifica. 


Suprimir línea. La línea en la que está el cursor se pierde; todas las 
siguientes se desplazan hacia arriba; se borra la última línea; la posi- 
ción del cursor no se modifica. 


Suprimir carácter. Todos los caracteres que están a la derecha del 
cursor, en su misma línea, se desplazan una posición hacia la izquier- 
da. El carácter de la última columna queda en blanco. 


Llevá el cursor a la posición especificada. Si esa posición sobrepasa 
algún borde de la pantalla, el cursor se queda en el borde correspon- 
diente. (1) =línea+%20; (c>)=columna+20. El extremo superior 
izquierdo es línea 0, columna 0. 


Establece color de pluma. Afecta a todos los caracteres presentes en 
la pantalla. El parámetro de color, (pc), se enmascara con «3F y 
luego se lo interpreta como tres números de 2 bits que especifican 
las intensidades de los tres colores primarios: los bits O y 1 para el 
azul, los bits 2 y 3 para el rojo y los bits 4 y 5 para el verde. El 6128 
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proporciona tres niveles de intensidad, que se especifican de la siguiente forma: 


[ESC]c<pc> 


[ESC]d 


[ESC]e 


[ESC]f 
[ESC]j 
[ESC]k 
[ESC]I 
[ESC]o 


[ESC]p 


[ESC]g 
[ESC]r 
[ESC]u 
[ESC]v 


[ESC]w 


[ESC]x 


[ESC]y 


CPC6128 — Intensidad nula Intensidad media Intensidad máxima 


Bits para 


cada color 00 (binario) 01 o 10 (binario) 11 (binario) 


Establece color de fondo. Afecta tanto al fondo como al borde de la 
pantalla. Los colores se especifican como en la secuencia anterior. 


Borrar desde el principio de la página (hasta la posición del cursor in- 
clusive). No se modifica la posición del cursor. 


Activa el cursor. Para evitar el molesto parpadeo que de otra forma 
se produciría, el cursor está inhibido durante la escritura normal del 
texto y sólo se lo activa una décima de segundo después de escribir 
el último carácter. 


Inhibe el cursor. 

Almacenar la posición del cursor. 

Restablecer la posición del cursor almacenada por [ESC]. 
Borrar línea. No se modifica la posición del cursor. 


Borrar desde el principio de la línea (hasta la posición del cursor in- 
clusive). No se modifica la posición del cursor. 


Activar el modo de imagen invertida (“video inverso”). Los caracteres 
visibles se escriben con los colores de fondo y pluma invertidos. 


Desactivar el modo de imagen invertida. 
Activar el modo de subrayado. (No disponible en el CPC6128.) 
Desactivar el modo de subrayado. (No disponible en el CPC6128.) 


Activa la continuidad de las líneas. Cuando los caracteres enviados 
a la pantalla sobrepasan la última columna de una línea, siguen apare- 
ciendo al principio de la línea siguiente. 


Desactiva la continuidad de las líneas. Cuando los caracteres enviados 
a la pantalla sobrepasan la última columna de una línea, se los ignora. 


Activa el modo 24x80. Algunos programas requieren la pantalla es- 
tándar de 24 filas por 80 columnas. Esta secuencia selecciona esa pan- 
talla, independientemente de cuál sea el tamaño total de la pantalla 
(que depende de la máquina), del país y de si la línea de estado está 
activada o desactivada. Se borra la pantalla. 


Desactiva el modo 24x80. Se borra la pantalla. 
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Parte 17: Juego de caracteres de CP/M Plus 


En la parte 10 de este capítulo hemos descrito una tabla de traducción para impresoras. 

El fin de esta tabla es convertir algunos caracteres del juego de BASIC y CP/M 2.2 

a una forma tal que puedan ser escritos por la impresora cuando en ella se ha realizado 

cierta selección de idioma. Esta función está limitada por el hecho de que pocos de los 

caracteres internacionales de las impresoras aparecen en el juego de caracteres de 

BASIC. 

Aunque este método sigue funcionando en CP/M Plus, se lo ha ampliado hasta permi- 

tir una correspondencia casi absoluta entre los caracteres visibles en la pantalla y los 
de la impresora. (El carácter visible que falta es el signo monetario sueco, que debería 

figurar en lugar de *$”.) La distribución de caracteres por idiomas es la siguiente: 


7B 7C 7D 7E 


23 24 40 5B 5C 5D 5E 


EE. UU. 


Francia 
Alemania 


Reino Unido 


Dinamarca 


Suecia 


Italia 


España 
Juego internacional de caracteres de CP/M Plus 


Para adaptar la máquina a un idioma determinado se debe hacer lo siguiente: 


1. Seleccionar el idioma en la impresora (generalmente mediante microconmutadores 
basculantes, aunque en algunas impresoras la selección se puede realizar por progra- 
ma enviándole códigos de control). 


e 5  — ——  — KAKXZ 
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2. Seleccionar el juego de caracteres deseado, bien mediante la orden transitoria 
LANGUAGE (tn) 
bien enviando la secuencia 
[ESC]2<n> 


al emulador de consola. 


En la práctica, esta inicialización se suele programar en el procedimiento PROFI- 
LE.SUB mediante las funciones LANGUAGE y SETKEYS. El CP/M Plus se suminis- 
tra con el juego de caracteres número 0 (EE.UU.) preseleccionado, ya que en la tecla 
del “3” está grabado el signo “4”. 


Juegos de caracteres de 7 bits 


Por útil que sea esta posibilidad de seleccionar juegos de caracteres, debemos resaltar 
que los caracteres estándar (EE.UU.) reemplazados por caracteres de otros idiomas de- 
jan de ser visualizables. Esto es inevitable cuando se manejan juegos de caracteres de 
7 bits. Prácticamente todos los programas disponibles para CP/M Plus (incluidos casi 
todos los programas de ayuda y los procesadores de texto) trabajan con un juego de 
caracteres de 7 bits. En el Reino Unido se acepta que el signo “if” desaparezca para ser 
sustituido por el “£”, no sólo en proceso de textos, donde es deseable, sino también en 
los listados de programas, v.g. LIST £8, donde no lo es. Con el tiempo el usuario llega 
a habituarse a hacer mentalmente la transformación de un signo a otro. 


Pero en otros idiomas los cambios son más perturbadores. Los signos nuevos reempla- 
zan caracteres tan necesarios como la barra vertical y los corchetes. A pesar de la mejo- 
ra de la legibilidad de los textos gracias a los acentos, en las situaciones en las que el 
programa requiere la barra y los corchetes (por ejemplo, DIR [ALL] la legibilidad que- 
da notablemente reducida. Lo mismo se puede decir de la facilidad de escritura, si se 
han cambiado algunas teclas para adaptarlas al nuevo juego de caracteres. 


Recuerde que los programas trabajan con códigos ASCII y son totalmente indiferentes 
a la forma que puedan tener los caracteres en la pantalla. Lo que ocurre con los juegos 
de caracteres de 7 bits es, sencillamente, que no hay códigos suficientes para cubrir to- 
das las necesidades. 


— —_ _— _ _.-———__->z-—=2=4==2=+=+ 
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Juegos de caracteres de 8 bits 


El juego de caracteres de BASIC tiene 256 símbolos diferentes; los códigos del 128 al 
255 (8:80 a 8:FF) representan diversos símbolos gráficos de aplicación en programas de 
juegos e informática doméstica. En CP/M Plus también hay 256 caracteres, pero los 
128 últimos son distintos de los de BASIC; están diseñados para aplicaciones comercia- 
les y para la generación de juegos específicos por idiomas: 


01234567 
“s2EA89 = Es 


EN 
e A 


ici 
AEXTEANEFADñRAS3ES= 


FIRHiIq3Etañna 
HUUESNIIiESO 


JO 0aAG0N 20 
nMmMOOU>OoOo 
e] 
cl 
MA 
La] 

La 
Aira 10 

me Al 

Ll 

e 

La 

Leal 

me 

Ll 

1d 

ee 

IM 


Caracteres del O al 127 (£00 a £:7F) Caracteres del 128 al 255 (680 a £«FF) 


Juego de caracteres estándar (EE.UU.) de CP/M Plus 


Los programas capaces de trabajar con juegos de caracteres de 8 bits disponen de este 
juego completo y podrán, no sólo dibujar recuadros, sino también acceder a los carac- 
teres especiales de todos los idiomas, sin encontrar los problemas que describíamos en 
la sección anterior. 

En la actualidad hay muy pocos programas preparados para trabajar con juegos de ca- 
racteres de 8 bits. Los caracteres de los márgenes de O a 31 y de 128 a 255 tendrán el 
aspecto que se muestra en la figura anterior solamente en la pantalla. En la impresora 
serán distintos, pues los fabricantes de impresoras tienen sus propias ideas sobre el dise- 
ño de juegos de caracteres. 


e e 1 e 1 
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Capítulo $8 
Más sobre el gestor de bancos de memoria 


Utilización por BASIC del segundo banco de 64K 
de RAM. 


Temas tratados: 


* Almacenamiento de imágenes de pantalla 
* Pseudoficheros 


El mapa de memoria de BASIC 1.1 que vimos en el capítulo anterior, parte 14, muestra 
que BASIC no utiliza 64 de los 128K de RAM. BASIC y el firmware residen en una 
ROM; si a ésta se añade la ROM del sistema de disco, resulta que la memoria utilizable 
desde BASIC es 112K en total (64K de RAM y 48K de ROM). 


Cada sección de 16K es un “bloque”; un grupo de 4 bloques (64K) es lo que se denomina 
“banco”. La técnica de selección de bloques se llama, pues, “conmutación de bancos”. 


El microprocesador Z80 no puede direccionar, en un momento dado, más de 64K. Por 
esa razón el sistema operativo está preparado para utilizar la ROM del firmware en lu- 
gar del bloque O de RAM, o las ROM de BASIC o del sistema de disco en lugar del 
bloque 3 de RAM. Esta conmutación se realiza automáticamente cada vez que se deben 
ejecutar rutinas de BASIC o del firmware. 


Pues bien, la selección de bancos de RAM no es más que una generalización de este 
método. La conmutación la realiza un programa escrito en ensamblador. 


En la cara 1 del juego de discos del sistema se incluye el programa BANKMAN.BAS. 
Este programa se ejecuta desde BASIC; su objeto es instalar la RSX que proporciona 
las órdenes externas de gestión de bancos. 


Una aplicación del segundo banco de 64K es el almacenamiento temporal de imágenes 
de pantalla; por ejemplo, en un programa “diseñador de pantallas” que almacene varias 
pantallas diferentes, o un videojuego que tenga preparadas varias pantallas para mos- 
trarlas inmediatamente cuando las necesite. 


Otra aplicación del segundo banco de 64K es la ampliación del espacio dedicado a las 
variables; este espacio adicional se puede considerar como ampliación del espacio reser- 
vado a las matrices literales o como “disco de RAM” (“Ramdisc?”). 


o ==. 
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Parte 1: Almacenamiento de imágenes de 
pantalla 


El gestor de bancos puede “desconectar” el bloque 1 de RAM y poner en su lugar uno 
cualquiera de los cuatro bloques de 16K de que consta el segundo banco. La figura si- 
guiente muestra en qué consiste esta conmutación. Observe que los cuatro bloques del 
segundo banco están todos en el mismo grupo de direcciones, de £:4000 a 8:7FFF. El 
contenido del bloque 1 (normalmente ocupado por instrucciones de BASIC) no se pier- 
de, sino que es restaurado cuando el gestor de bancos termina su trabajo. Además de 
las cinco conmutaciones de bancos ilustradas en la figura, hay otras tres posibles, pero 
sólo se las utiliza en CP/M. 


Conmutación de bancos por hardware 


El gestor de bancos dispone de dos órdenes externas con las que se pueden transferir 
pantallas completas de un bloque a otro; estas órdenes conmutan automáticamente los 
bloques 4 a 7 cuando es necesario y dejan restablecido el bloque 1. 


——_—_—__o _ o _ _—_— _— Q_—__Q__ 
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La orden 


¡SCREENSWAP, [seccion de pantalla), Jnunero de pantalla), (nusero de pantalla) 


intercambia el contenido de dos bloques, mientras que 


¡SCREENCOPY, [(seccion de pantalla), (numero de pantalla destino), 
¿nusero de pantalla fuente) 


copia el contenido de un bloque en otro. 


El parámetro opcional (sección de pantalla) hace que la transferencia de información 
se realice por tramos de 1/64 de pantalla (256 bytes del total de 16K). Así pues, el pará- 
metro puede tener cualquier valor comprendido entre 0 y 63. Este método de operación 
es útil cuando se necesita mezclar alguna otra tarea con la de transferencia de pantallas. 
El tiempo de ejecución de un intercambio de pantallas es de aproximadamente 150/300 
segundos (150 unidades de la variable TIME). 


Los (números de pantalla) son números cualesquiera del margen de 1 a 5. (La pantalla 1 
es la visible.) Las operaciones de copia e intercambio en las que interviene la pantalla 1 
son mucho más rápidas que las otras. Tenga cuidado con el efecto de “desplazamiento 
vertical por hardware”, que ya puede haber experimentado al trabajar con volcados de 
pantalla. Se debe procurar que todas las imágenes de pantalla se construyan (y visuali- 
cen). con la pantalla 1 en la misma posición de hardware. La posición más sencilla es 
la establecida por una orden MODE. 


Ejemplos de transferencias de pantallas 


Cargue y ejecute el programa BANKMAN con la orden 
RUN "*BANKMAN” 

Escriba 
MODE 1 

con lo que se borra la pantalla. Ahora escriba 


* Esta es la pantalla original 
ISCREENCOPY,3,1 *”Pantalla original va a la memoria 3 


¡ms 


e e 1 1 a — 
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¡EF — o e 


La pantalla se ha vuelto a borrar. Escriba ahora 


” Esta es la pantalla intermedia 
¡SCREENCOPY,2,1 *Pantalla intermedia va a memoria 2 


¡SCREENSWAP,2,3 *Intercambia memorias 2 y 3 


¡SCREENCOPY,1,3 *Recupera pantalla intermedia desde memoria 3 
¡SCREENSWAP,2,3 *Recupera pantalla original desde memoria 2 


Al final del capítulo 9 damos un completo programa “diseñador de pantallas” que utili- 
za las funciones de transferencia de pantallas proporcionadas por el gestor de bancos. 


Parte 2: Ficheros en RAM 


Considerado como “RAMdisc”, el segundo banco de 64K de RAM se puede organizar 
en forma de fichero, con cierto número de registros de longitud fija. La longitud de 
registro puede ser de entre O y 255 bytes, si bien 2 bytes es el mínimo recomendable. 
Una vez establecida la longitud de registro”, cada registro es accesible para operaciones 
de escritura y lectura por su “número de registro”. Es perfectamente posible escribir en 
un fichero de RAM con una longitud y luego leer con otra distinta. 


Nota. El fichero de RAM sólo puede contener datos; no está prevista su utilización para almace- 
nar instrucciones de programa. 


Al igual que en los sistemas de ficheros de acceso aleatorio en disco, aquí existe también 
el concepto de “número de registro actual”. Este número se mantiene siempre actualiza- 
do, y es útil, por consiguiente, cuando se recorre el fichero avanzando automáticamen- 
te de cada registro al siguiente. 


La orden 
¡ BANKOPEN, (longitud de registro) 


establece la longitud de registro e inicializa el “número de registro actual” (a 0), pero 
no borra memoria. 


La orden 


¡ BANKWRITE, C(codigo generado) , expresion literal)[, (numero de registro») 


escribe la (expresión literal) en el fichero. El (número de registro) especifica en qué 
registro se debe escribir. Si se omite este parámetro, se escribe en el número de registro 
actual. Finalmente, se actualiza este número (sumándole 1). 

¿ íÁKÓHK>— A AAA A A A 
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Si la (expresión literal) no llena el registro, los caracteres antiguos sobre los que no 
se ha escrito seguirán estando en el registro. Si la (expresión literal) es demasiado lar- 
ga, se ignoran los caracteres restantes para no “corromper” el registro siguiente. 


El (código generado) es una variable entera a través de la cual se puede conocer, al 
concluir la operación, el número de registro en el que se ha escrito (si la escritura se 
ha realizado con éxito) o un número de error (negativo) si la escritura ha fracasado: 


—1 indica que se ha alcanzado el final del fichero (se ha intentado sobrepasar el 


final de los 64K) 
—2 indica un error de conmutación de bancos (no debería ocurrir nunca) 


Ejemplos: 


¡ BANKOPEN, 19 
¡BANKWRITE,elr%, "123 pruebas",9 
¡BANKWRITE, Qr%, ws 


La orden 


¡BANKREAD, C(codigo generado), Clvariable Jiteral)[, (numero de registro)] 


lee un registro y asigna su contenido a la (variable literal). 


El (número de registro) especifica en qué registro se debe leer. Si se omite este paráme- 
tro, se lee en el número de registro actual. Finalmente, se actualiza este número (su- 


mándole 1). 

Si el contenido del registro no llena completamente la (variable literal), los caracteres 
antiguos sobre los que no se ha escrito seguirán estando en la (variable literal). Si el 
contenido del registro es más largo que la <variable literal), se ignoran los caracteres 
restantes, ya que no es posible aumentar la longitud de la variable mediante una orden 
externa. 

El «código generado) es una variable entera a través de la cual se puede conocer, al 
concluir la operación, el número de registro en el que se ha leído (si la lectura se ha 
realizado con éxito) o un número de error (negativo) si la lectura ha fracasado: 


—1 indica que se ha alcanzado el final del fichero (se ha intentado sobrepasar el 


final de los 64K) 
—2 indica un error de conmutación de bancos (no debería ocurrir nunca) 


Ejemplo: 
¡BANKREAD, Br%,i$,9 
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Búsquedas 


Se puede recorrer el fichero en busca de un dato determinado. La orden 


¡ BANKF IND, C(codigo generado), (cadena buscada)[ , (numero de registro inicial) 
[, (numero de registro tinal)1] 


examina los registros especificados. El (número de registro inicial) especifica el regis- 
tro a partir del cual debe comenzar la búsqueda. Si se omite este parámetro, se toma 
por defecto el número de registros actual. 


La búsqueda continúa, a saltos de (longitud de registro), hasta que se encuentra la ca- 
dena o hasta que se agotan los 64K. 


Si se especifica el (número de registro final), la búsqueda termina cuando se ha exami- 
nado ese registro (a menos que se haya encontrado la cadena antes). 


Si la búsqueda concluye con éxito, el “número de registro actual” apunta al registro 
donde se ha encontrado la cadena; si no, sigue teniendo el valor anterior. 


El (código generado) es una variable entera que contiene, al terminar la operación, 
información sobre cómo se ha desarrollado ésta. Si ha concluido con éxito, contiene 
el número de registro en el que encontró la cadena; si no, contiene un número negativo 
que es un código de error: 


—1 Fin del fichero. El (número de registro inicial) sobrepasa el final de los 64K, 
o bien es mayor que el (número de registro final)». 

-2 Error de conmutación de bancos (no debería ocurrir nunca). 

—3 No se ha encontrado la cadena buscada. 


La (cadena buscada) puede contener símbolos comodín, que en este caso son caracte- 
res número 0, chr$(0). El número de caracteres que intervienen en las comparaciones 
es igual a la (longitud de registro) o a la longitud de la (cadena buscada), el más corto 
de los dos. 


Ejemplos: 


¡BANKFIND,Qr%,"123 pru",9 
¡BANKFIND,Qr%,f$,199,209 


Cuidado con los errores 


Los errores obvios, tales como poner demasiados parámetros, son detectados e identifi- 
cados como Bad Command. Sin embargo, el mecanismo de las órdenes externas no 
permite detectar errores del tipo Type mismatch, por lo que el usuario debe cerciorar- 
se de que está utilizando parámetros de la forma correcta. 
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El siguiente programa utiliza las órdenes de RAMdisc para examinar una base de datos 
que contiene permutaciones de letras formadas con palabras de 7 letras. Busca concor- 
dancias y permite utilizar símbolos comodín. 


Por ejemplo, las permutaciones de la palabra CENTRAL que concuerdan con 
?NACE?? (puede omitir los dos últimos símbolos ?) son TNACERL, TNACELR, 
RNACETL, RNACELT, LNACETR y LNACERT. 


Se tarda bastante en crear la base de datos, pero es que 64K es mucha memoria. 


19 


29 ” 
39 ” 
"No olvide RUN 
ograma 


49 


59 


69 * 
MODE 2 
DEFINT a-z 
r%=9: ¡ BANKOPEN, 7 


79 

89 

99 

199 
119 
129 
139 
149 
159 
169 
179 
189 
199 
299 
219 
229 
239 
249 


259 
269 


279 


289 
299 
- 300 
319 
329 
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"REVUELTO DE LETRAS, 
copyright 


(c) 


"BANKMAN" 


por ROLAND PERRY 


AMSOFT 1985 


antes de ejecutar este pr 


AAA 


INPUT"Que palabra de 7 letras quiere revolver”;5s% 
IF LEN(s$)<>7 THEN 199 

PRINT"Por +avor, 
LOCATE 1,5:PRINT"Sigo trabajando: " 


FOR ci=1 
FOR c2=1 
IF c2=ci 
FOR c3=1 
IF c3=c2 
FOR c4=1 
IF c4=c3 
FOR c5S=1 
IF c5=c4 
FOR cé=1 
IF céó=c5 
339 
FOR c?=1 
IF c?=c6 


TO ? 
TO 2 
THEN 379 
TO ? 
c3=ci 
TO ? 
c4=c2 
TO > 
có=c3 
TO ? 
có=c4 


TO 7? 
c7=c5 


7=c1 THEN 329 
o$=MIDS$(s$,c1,1)+MID$5(S5$,Cc2,1)+MID$%(s$,Cc3,1)+MIDS 
(s$,04,1)+MID$(s$,c5,1)+MID$(s$,có,1)+MID$(s$,c7, 


1) 


espere un rato." 


THEN 369 
OR c4=c1 THEN 359 
OR có=c2 OR có=c1d THEN 348 


OR cé=c3 OR có=c2 OR cé=ci THEN 


OR c7=c4 OR c?=c3 OR c7=c2 OR c 


LOCATE 18,5:PRINT x;0%8 
¡BANKWRITE,P%, 0% 


IF r%<98 THEN STOP 


x=x+1 
NEXT c? 
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339 NEXT có 

349 NEXT c5 

359 NEXT c4 

368 NEXT c3 

2790 NEXT c2 

386 NEXT ci 

398 ultimoreg=r% 

499 REM ahora vamos a buscar 

419 r%=98:9$=SPACES(7) 

429 PRINT:INFUT"Que subpalabra quiere buscar (puede e 
scribir 2 como simbolo comodin) ",m$ 

439 m$=LEFTS (m$, 7) 

449 FCR x=1 TO LEN (m9) 

459 IF MID$(m$,x,1)="?2"THEN MIDS(m$,x,1)=CHR$(9) 

469 NEXT 

478 ¡BANKFIND,-*%,m$,9,ultimoreg 

489 IF r%<9 THEN 429 

499 ¡BANKREAD, -%, 96 

599 PRINT 9%, 

310 ¡ BANKFIND,-% mé, r%+ijultimoreg 

35249 GOTO 488 


——_ 
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Capítulo 9 
Cuando usted guste ... 


En este capítulo vamos a dar un repaso a ciertas cuestiones básicas de 
informática en general y del CPC6128 en particular. No es imprescindi- 
ble leer este capítulo para trabajar con el ordenador, pero puede ayudar- 
le a entender algo de lo que está ocurriendo en su interior. 


Parte 1: En términos generales ... 


¡Fulmina el bicho! 


Aun cuando lo único que le interese de su CPC6128 sea disfrutar de los sofisticados 
juegos de ordenador que se venden en las tiendas, es posible que se pregunte qué tiene 
la máquina dentro, es decir, qué es eso del hardware. 


Hardware es lo que usted puede coger y llevarse bajo el brazo (es un decir): la caja gris 
donde está el teclado, el monitor, los cables, etc. Más en general, todo lo que no sea 
especificamente software: programas, manuales e información grabada en cinta o en 
disco. 


Ciertos aspectos del funcionamiento del ordenador están estrechamente ligados al 
hardware; por ejemplo, la imagen de color que usted puede ver en la pantalla. En cam- 
bio, es responsabilidad del software controlar el hardware para producir los caracteres 
y dibujos deseados. 


Es el hardware el que dirige el haz de electrones a la superficie electroluminiscente de 
que está recubierto el interior del tubo del televisor; el software aporta la organización 
y la inteligencia para decir al hardware cómo y cuándo debe hacerlo. Añade además 
el control de los tiempos y de las secuencias de acciones para que usted pueda ver la 
nave espacial despegando, o para algo tan mundano como que aparezca una letra en 
la pantalla cada vez que usted pulsa una tecla. 
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¿Por qué es un ordenador mejor que otro? 


El hardware sin el software es completamente inútil, y viceversa. El ordenador empieza 
a servir para algo cuando hardware y software se ponen de acuerdo para llevar a cabo 
sus cometidos. Hay algunas consideraciones básicas que se pueden tener en cuenta para 
valorar la calidad tanto de uno como del otro. 


Los puntos de referencia generalmente aceptados para los ordenadores personales son: 


1. Resolución de la pantalla: tamaño del menor elemento discernible 


El concepto de resolución es una mezcla de diversos factores: número de colores dispo- 
nibles para el programador, número de áreas discernibles en la pantalla (pixels) y nú- 
mero de caracteres de texto que caben en ella. 


Usted puede comprobar que su CPC6128 es superior a este respecto a los otros ordena- 
dores de su nivel de precio. 


2. El intérprete de BASIC 


Prácticamente todos los ordenadores domésticos incluyen un intérprete de BASIC que 
permite al usuario crear programas con los que controlar el hardware. El lenguaje de 
programación que viene con la máquina, BASIC, no es más que un programa, pero 
un programa extremadamente complejo que ha evolucionado a lo largo de los años, 
desde que se “inventó” el BASIC en los Estados Unidos. El “Beginners” All-purpose 
Symbolic Instruction Code” (código de instrucciones simbólicas de uso general para 
principiantes) es el lenguaje de ordenador más ampliamente utilizado en el mundo ente- 
ro; como todos los lenguajes, tiene sus dialectos locales. 


La versión utilizada en el CPC6128 es una de las de mayor compatibilidad; puede eje- 
cutar programas escritos para funcionar bajo control del sistema operativo de disco 
CP/M. Es una versión muy rápida de BASIC, lo que quiere decir que realiza los cálcu- 
los muy deprisa. A usted quizá no le parezca demasiado impresionante que un ordena- 
dor tarde 0.05 segundos en multiplicar 3 por 5 y escribir la respuesta, mientras que otro 
ordenador tarda 0.075 segundos en hacer lo mismo. Pero cuando se trata de dibujar 
gráficos en la pantalla, tarea que puede requerir millares de cálculos repetitivos, la dife- 
rencia entre 0.05 y 0.075 segundos es decisiva. 


Usted oirá hablar frecuentemente de “códigos de máquina”. El código de máquina es 
una forma de suministrar instrucciones directamente al microprocesador. La velocidad 
de ejecución es entre 5 y 15 veces mayor en código de máquina que en BASIC, pero 
el tiempo que se tarda en escribir un programa puede ser hasta 50 veces mayor en códi- 
go de máquina que en BASIC. 
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El BASIC de Amstrad es de los más rápidos y completos que se pueden encontrar en 
ordenadores personales, e incorpora muchos recursos que ayudan al programador ex- 
perto a superar parte de la lentitud inherente a todos los lenguajes de alto nivel para 
producir efectos visuales y sonoros sorprendentemente dinámicos. 


3. Ampliabilidad 


Casi todos los ordenadores prestan atención a la necesidad de conectar periféricos tales 
como impresoras, joysticks y unidades de disco. Sin embargo, muchos de los más po- 
pulares ordenadores domésticos necesitan interfaces externas para que se les pueda co- 
nectar una simple impresora o un joystick, 


El comprador no siempre prevé las necesidades futuras, pero un ordenador que incor- 
pore un interfaz para impresora o un conector para joystick puede ser más barato a 
la larga que otro por el que tenga que pagar menos en el momento de la adquisición. 


El CPC6128 tiene incorporada una puerta de salida para impresora (tipo Centronics), 
una salida para segunda unidad de disco, una salida para cinta (con control de motor), 
un conector para dos joysticks, una salida de sonido estereofónico y una puerta de ex- 
pansión a la que se puede conectar un interfaz serie (modelo RS232C de Amstrad), un 
modem, un sintetizador de voz (modelo SSA2 de Amstrad), un lápiz óptico, etc. 


4. Sonidos 


Las características sonoras de un ordenador determinan si “suena a lata” o si puede pro- 
ducir una imitación aceptable de un instrumento musical electrónico. 


El CPC6128 está dotado de un generador de sonido de 3 canales y 8 octavas, que puede 
dar una calidad musical muy aceptable y permite el control completo de las envolventes 
de tono y de volumen. Además, el sonido se puede obtener en una configuración este- 
reofónica, con canal izquierdo, canal derecho y canal común. 


Esto permite programar el sonido para coordinarlo con el movimiento de objetos por 
la pantalla. 


En último extremo, es usted quien tiene que decidir qué características le son más nece- 
sarias. Esperamos que las pruebe todas, para así aprovechar al máximo su ordenador. 


¿Por qué no puede? 


Sabiendo lo poderosa que es la tecnología actual, los usuarios se preguntan frecuente- 
mente por qué una máquina tan avanzada como el CPC6128 es incapaz de imitar las 
imágenes de un televisor de color. Por ejemplo, ¿por qué no puede un ordenador mos- 
trar en la pantalla la imagen de una persona caminando con naturalidad? ¿Es que los 
ordenadores no son capaces de dar movimiento más que a unos burdos monigotes? 
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La respuesta es fácil, aunque compleja. No crea usted que la pantalla de su ordenador 
puede tener la misma riqueza de detalles que la de un televisor. Los televisores funcio- 
nan con una información “analógica”, que puede describir, con resolución casi ilimita- 
da, todos los grados posibles de intensidad de todos los colores del espectro visible. En 
términos informáticos, esto representa que la “memoria? necesaria para almacenar una 
imagen de televisión es unas veinte veces mayor que la que se le dedica a un ordenador 
doméstico. 


Pero esto es sólo una parte del problema. Para dar movimiento a una imagen, hay que 
procesar toda esa información a gran velocidad (del orden de 50 veces por segundo). 
No es imposible, pero para ello se necesitan máquinas que cuestan unos cuantos miles 
de veces más que un ordenador doméstico, al menos en la actualidad. 


Hasta que el precio de la memoria de alta capacidad baje drásticamente (lo que ocurrirá 
algún día), los ordenadores pequeños tienen que arreglárselas con una memoria relati- 
vamente pequeña para controlar la pantalla, lo que representa menor resolución y mo- 
vimientos más espásticos. Optimizando el hardware y el softaware se puede paliar con- 
siderablemente estas limitaciones, pero de momento tendremos que seguir conformán- 
donos con imágenes torpes que ni siquiera llegan a parecerse a las de una película de 
dibujos animados de regular calidad. 


Ese teclado me suena ... 


¿Por qué no puedo sentarme ante el ordenador y escribir una sencilla página de texto? 


No se deje engañar por el hecho de que el ordenador se parece a una máquina de escri- 
bir electrónica con pantalla. La pantalla no es una hoja de papel electrónico: es una 
“consola de órdenes”, expresión técnica que quiere decir que es una vía de comunicación 
entre el usuario y el lenguaje de programación que está en la memoria de la máquina. 


Mientras no se le mande otra cosa, el ordenador tratará de entender todo lo que se le 
comunique a través del teclado, pues supone que son instrucciones. Cuando usted pulsa 
[RETURNI, el ordenador examina lo tecleado; si no es inteligible para el BASIC resi- 
dente, lo rechaza y emite el mensaje: 
Syntax error 

Ahora bien, puede ocurrir que el programa actualmente presente en la memoria sea un 
procesador de textos; en tal caso usted podrá escribir las palabras que desee, pulsar 
[RETURN] y seguir escribiendo a sus anchas, exactamente igual que si el ordenador 
fuera una máquina de escribir que utilizara papel electrónico. Pero, para que esto sea 
posible, antes se debe haber cargado en la memoria un programa de proceso de textos. 


El ordenador parece combinar aparatos que nos resultan familiares de tanto verlos en 
casa y en la oficina, como son la pantalla y el teclado. Pero recuerde que la similitud 
normalmente es superficial y que el ordenador es una combinación de elementos con 
personalidad propia. 
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¿Quién teme a la jerga? 


Como ocurre con todas las ramas especializadas de la industria, la informática ha desa- 
rrollado una jerga propia para facilitar la comunicación de conceptos complejos que 
de otra forma requerirían muchas palabras de lenguaje ordinario. Esto no ocurre sola- 
mente en el campo de la alta tecnología; todos hemos topado con barreras de este tipo 
levantadas por los profesionales de distintas áreas. 


En el caso de la informática, la confusión se debe más a la forma de utilizar las palabras 
que a las palabras en sí. (Y en castellano, a la imposibilidad de traducir ciertas palabras 
inglesas o a que no nos tomamos la molestia de intentarlo.) Casi todos los que llegan 
a familiarizarse con la terminología de la informática se esfuerzan por utilizar las pala- 
bras de la forma más directa posible, con objeto de minimizar la dificultad de la comu- 
nicación. Pero no crea que el lenguaje informático es lo mismo que el lenguaje literario; 
la informática no es literatura, sino una ciencia precisa; aparte la sintaxis, la estructura 
de la comunicación en informática es directa y sencilla, y de ningún modo confusa o 
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ambigua. Como no es literatura, la informática no ha necesitado desarrollar una asig- 
natura de “comentario de textos” para analizar el significado exacto del significado de 
los programas. 


Independientemente de si el significado de un programa es obvio o no lo es, hay mu- 
chos aspectos de la programación que se pueden calificar de embarullados o de elegan- 
tes; ahora que se está asentando el revuelo inicial causado por la aparición de los mi- 
croordenadores, se está prestando mayor atención a los aspectos formales de la cons- 
trucción de programas. 


La informática está penetrando en las mentes de muchos jóvenes que valoran la preci- 
sión y la sencillez de las ideas y de la forma de comunicarlas. No hay demasiados niños 
que a los diez años sean ya abogados, pero sí muchos que a esa edad saben programar. 


Lo básico de BASIC 


Casi todos los ordenadores domésticos tiene incorporado el lenguaje BASIC, que hoy 
por hoy es lo más próximo al lenguaje ordinario. El nombre del lenguaje no implica 
ninguna limitación en cuanto a sus posibilidades; de hecho, se ha escrito programas 
extremadamente complejos y potentes en BASIC. 


Sin embargo, es evidente que el nombre ha atraído a muchos pricipiantes, que espera- 
ban encontrar un BASIC un buen punto de partida entre el laberinto de los lenguajes 
de programación; y esto ha contribuido en gran medida a su universalidad. 


BASIC es un lenguaje informático que interpreta un reducido número de órdenes, co- 
mo resultado de las cuales realiza operaciones con los datos según se va ejecutando el 
programa. A diferencia del vocabulario humano medio, que consta de entre 5000 y 
8000 palabras (además de la conjugación de los verbos, plurales, diminutivos, etc.), 
BASIC tiene que arreglárselas con sólo un par de centenares. Los programas escritos 
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en BASIC tienen que ajustarse a reglas muy estrictas en cuanto a la forma de utilizar 
esas palabras. La sintaxis es muy precisa; todo intento de comunicarse con el ordena- 
dor en lenguaje coloquial producirá el frío mensaje: 


Syntax error 


Esto no representa una limitación seria, ya que BASIC está diseñado para trabajar con 
números. Las palabras son básicamente una generalización de las operaciones matemá- 
ticas elementales (+, —, etc.). El concepto más importante que tienen que asimilar los 
principiantes es que el ordenador sólo puede manejar datos numéricos. Es decir, la in- 
formación que se envía a la CPU (unidad central de proceso) tiene que estar en forma 
numérica. 


Números 


Si empleáramos un ordenador para almacenar las obras completas de Shakespeare, en 
todo el sistema no encontraríamos ni una sola letra o palabra. Todo elemento de infor- 
mación debe ser convertido a número antes de que el ordenador pueda reconocerlo y 
manipularlo. 


BASIC interpreta las palabras como si fueran números; para procesarlas, el ordenador 
no dispone de más medios que la suma, la resta y la lógica de Boole, con la cual puede 
hacer comparaciones y seleccionar atributos; en otras palabras, averiguar si un número 
es menor o igual que otro, o realizar determinada tarea si un número cumple cierta 
condición., 


A través del programa, el ordenador desmenuza todas las tareas en sus componentes 
más elementales. 
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'Sirtodo esto le parece farragoso, está en lo cierto. Ha descubierto la primera y más im- 
"portante verdad de la informática. Un ordenador es una herramienta que sirve para 
realizar tareas elementales y repetitivas a gran velocidad y con precisión absoluta. Así, 
BASIC interpreta las instrucciones que se le dan por medio del programa y las traduce 
al lenguaje que la CPU (unidad central de proceso) puede entender. La lógica del orde- 
nador sólo distingue dos estados: sí y no; en notación binaria, 1 y 0; en notación de 
Boole, “verdadero” y “falso”. No hay estados intermedios del tipo “quizá”. 


El proceso de conmutación entre esos dos estados es la esencia del término “digital”. 
En la naturaleza casi todos los procesos evolucionan gradualmente de un estado “esta- 
ble” a otro. En cambio, en la situación digital ideal, la transición de un estado a otro 
es instantánea. Sin embargo, las leyes de la física de semiconductores imponen un pe- 
«queño retardo, el retardo de propagación, que es el causante del tiempo que tarda el 
“ordenador en procesar la información antes de dar la respuesta. 


En todo caso, el ordenador tiene que esperar hasta que concluya una tarea antes de 
poder abordar la siguiente, lo que representa que siempre se le impone un retardo artifi- 
cial. El proceso digital es “blanco” o “negro”, y las fases de transición por los diversos 
grados de “gris? no tienen ninguna importancia. En cambio, los procesos analógicos se 
realizan precisamente a través de esas fases de “gris”. 


Si la respuesta final sólo puede ser 0 o 1, no es posible que el resultado sea “casi? correc- 
to. El hecho de que los ordenadores cometan errores en ocasiones se debe a la limita- 
ción del tamaño de los números que pueden procesar; los números con demasiados dí- 
gitos tienen que ser “comprimidos” para que encajen en el espacio disponible, lo que 
conduce a errores de redondeo. 


En un mundo en el que sólo existen los dígitos O y 1, ¿cómo se cuenta más allá de 1? 


Bits y bytes 


Estamos habituados a entender los números solamente cuando están expresados en el 
sistema decimal, en el que el punto de referencia es el número 10 y en el que se dispone 
de 10 dígitos (del O al 9) para representar los números. El sistema binario es conceptual- 
mente análogo al decimal, pero con sólo dos dígitos; las unidades con las que opera 
este sistema son los denominados bits (forma contraída de Blnary digiT, dígito 
binario). 


La relación entre bits y números decimales es sencilla y vamos a estudiarla. 


Es habitual declarar el máximo número de bits que vamos a usar para representar los 
números, y añadir ceros por la izquierda para completar la expresión. Por ejemplo, el 
número decimal 7 se convierte en el binario 


00111 


en notación de 5 bits. 
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En el sistema binario, los dígitos se pueden considerar como indicadores dispuestos en 
columnas para especificar si una determinada potencia de 2 está presente o no lo está: 


2= 1 
21= 2=2=2(02) 
2= 4=2x2=2(2)) 
= 8 =2x2x2 = 2(2) 
2* = 16 = 2x2x2x2 = 2(2*) 
de modo que las columnas tienen el siguiente aspecto: 
y A CN NR + 
1 0 0 1 1 
d06+0 +0 +2 +1) = 19 


Para abreviar la terminología al hablar de información binaria se introduce el concepto 
de “byte”, que es una sucesión de 8 bits. El mayor número que se puede representar 
con un byte es 11111111 (binario) o 255 (decimal). Si contamos también el 00000000, 
resulta un total de 256 números distintos, que son datos perfectamente válidos para el 
ordenador. 

Los ordenadores prefieren manejar los bits en grupos de 8. El número 256 es demasia- 
do pequeño, y por eso, para poder controlar la memoria, se utilizan dos bytes que se 
interpretan en forma matricial. Cada posición de memoria tiene una dirección vertical 
y otra horizontal, y entre las dos caracterizan sin ambigúedad la posición. Por ejemplo, 
la siguiente matriz 


puede caracterizar hasta 10x 10 elementos de información utilizando números de direc- 
ción comprendidos entre O y 9. El elemento almacenado en la posición 3,5 es un “1”, 
lo mismo que el que está en la posición 5,5. 
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Análogamente, una matriz binaria de 256x256 puede caracterizar 65536 posiciones uti- 
lizando direcciones de 8 bits para los ejes vertical y horizontal de la matriz. Nuestros 
elementos iniciales, “0 y “1”, han progresado hasta ser capaces de identificar 65536 ele- 
mentos diferentes. 


El siguiente nivel de abreviatura en terminología binaria es el K, que representa 1024 
bytes. El número 1024 es la potencia de 2 más próxima a nuestro “kilo” (1000), y explica 
por qué se dice que un ordenador es de 64K cuando en realidad tiene una memoria de 
65536 bytes (64 x 1024). 


Afortunadamente, el intérprete de BASIC se encarga de todas estas conversiones. Es 
perfectamente posible llegar a ser un programador aunque no se domine el sistema bi- 
nario. No obstante, unos conocimientos del sistema binario pueden ayudar a desen- 
mascarar la magia de ciertos números clave que inevitablemente nos encontramos en 
informática. 


Vale la pena dedicar algún tiempo a entender el sistema binario y a comprender el por 
qué de números tales como el 255 o el 1024, pues parece evidente que estos números 
seguirán siendo el fundamento de la informática, al menos en el futuro previsible. La 
fiabilidad y sencillez que proporciona el sistema binario se seguirá imponiendo a la 
complejidad que implicaría cualquier otro sistema de numeración. 


Sin embargo ... 


Por sencilla y elegante que sea, la notación binaria induce a confusión a los humanos, 
porque no somos capaces de leer de un golpe de vista los números binarios. Hay algu- 
nos otros sistemas de numeración que los programadores utilizan con mayor facilidad. 
Un sistema muy utilizado en microordenadores es el hexadecimal (HEX). Su base es 
el número 16. La correspondencia entre dígitos decimales y hexadecimales es la 
siguiente: 


Decimal 


01234567809 u10 11 12 13 14 15 


Hexadecimal 
0123456789A BBCODE UF 


El sistema hexadecimal puede dividir los 8 bits de un byte en dos bloques de 4 bits, 
ya que 15 es un número de 4 bits: 1111 en binario. El primer bloque indica el 
número de unidades completas de “15”; el segundo bloque indica el “resto”. Y aquí es 
donde empieza a aparecer la elegancia de los sistemas binario y hexadecimal. A conti- 
nuación damos una tabla de conversión entre los tres sistemas para los primeros 
números: 
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Un número de 8 bits tal como el 11010110 (£D6 hex) puede ser subdividido en dos de 
4 bits. A lo largo de todo este manual indicamos los números hexadecimales precedién- 
do los del signo «. El sistema hexadecimal es el más utilizado por los programadores 
que trabajan en ensamblador. El lenguaje ensamblador es la etapa más cercana a códi- 
go de máquina a la que llegan normalmente los programadores; permite expresar las 
instrucciones en “códigos nemotécnicos”, que son algo más inteligibles que los códigos 
de máquina. 


Para convertir un número hexadecimal en binario, lo primero que hay que hacer es ob- 
sevar el primer dígito, para ver cuántos grupos de *16” hay en el número, multiplicar 
por 16 y luego sumar al resultado el valor del segundo dígito. Así pues, no se deje llevar 
por la tentación de pensar que £D6 es 13+6, ni 136, porque en realidad es 
(13x16)+(6)=214. 


El proceso es el mismo que seguimos cuando leemos un número decimal: 
89=(8x10)+9. Lo que ocurre es que nos resulta mucho más fácil multiplicar por 10 
que por 16; es una cuestión de práctica. 


Si usted ha conseguido llegar hasta aquí sin estar demasiado confuso, puede decir que 
está en el buen camino para llegar a entender los principios básicos del ordenador. Qui- 
zá se pregunte para qué nos metemos en todas estas complicaciones, y tiene razón. Un 
ordenador es un aparato que maneja ideas y conceptos muy sencillos; lo que tiene de 
especial es que realiza esas Operaciones a una velocidad muy grande (millones de veces 
por segundo) y que tiene una enorme capacidad para recordar los datos, tanto los que 
se le han suministrado como los resultados intermedios de los muchos miles de sumas 
que realiza antes de poder dar la respuesta final. 
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Si desea seguir estudiando la teoría de los ordenadores, sepa que hay miles de libros 
dedicados a estos temas. Algunos no le aclararán en absoluto las ideas, sino todo lo 
contrario, pero otros en cambio le guiarán en el descubrimiento de la sencillez y las re- 
laciones fundamentales que existen entre los sistemas de numeración y le ayudarán a 
comprender la forma en que el ordenador los maneja. 
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Parte 2: Más en concreto sobre el 
CPC6128 


- En esta sección vamos a tratar algunas cuestiones específicas del 


CPC6128. La información básica sobre estos temas se puede encontrar 
en el “Curso de introducción” y en el capítulo titulado “Lista completa 
de las palabras clave del BASIC de Amstrad”. 


Temas tratados en esta sección: 


Juegos de caracteres 

ASCII 

Variables 

Lógica 

Caracteres definidos por el usuario 
Formatos de escritura 

Ventanas 

Interrupciones 

Datos 

Sonido 

Gráficos 

Utilización del segundo banco de 64K de RAM 


X A A A A A A A A E A 


Caracteres 


Cuando se ponga al teclado de su CPC6128, no dé por supuesto que en la pantalla va- 
yan a aparecer letras y números reconocibles. Ya hemos explicado que el ordenador 
no es una máquina de escribir. Lo que usted hace es pulsar una serie de conmutadores 
eléctricos; las señales eléctricas así producidas son traducidas por los circuitos internos 
para enviar a la pantalla grupos de puntos. Según sea la colocación de esos puntos, po- 
dremos reconocer letras, números u otros caracteres del “juego del caracteres” del 
CPC6128. 


Algunos de estos caracteres no son accesibles directamente a través del teclado, sino 
mediante la instrucción PRINT CHRS(<número)»). Esto es así porque la información 
se almacena en el ordenador en unidades de 1 byte y, como vimos en la parte 1 de este 
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capítulo, 1 byte puede tener 256 formas posibles. Dado que el ordenador tiene que de- 
dicar al menos un byte a cada carácter almacenado, más vale que aprovechemos las 
256 combinaciones posibles en lugar de conformarnos con los 96 “caracteres estándar” 
de las máquinas de escribir y desperdiciar los 160 restantes. 


Los caracteres estándar son un subconjunto del juego total de caracteres. Su nombre 
en informática es “caracteres ASCII”, término derivado de *American Standard Code 
for Information Interchange' (código estándar norteamericano para el intercambio de 
la información). Se trata de un sistema diseñado para asegurar la compatibilidad de 
los datos transmitidos de un ordenador a otro. En el capítulo 7 hemos dado la lista 
de todos los caracteres ASCII, así como de los demás caracteres disponibles en el 
CPC6128, junto a sus números de código. 


Vamos a verlos 


Seguramente ya no encierra ningún secreto para usted un programa tan sencillo como. 
éste: 


19 FOR n=32 TO 255 
28 PRINT CHR$(n); 
34 NEXT 


con el que hacemos que el ordenador exhiba en la pantalla el juego completo de carac- 
teres. Pero estudiemos un poco la esencia de este programa. 


Lo primero que debemos obsevar es que al ordenador no le hemos dicho PRINT 
“abcdefghijkimn ...”, sino PRINT CHR$(n). En vez de mencionar explícitamente 
los caracteres hemos puesto en su lugar una “variable”. Una variable es un elemento 
de información que varía según impongan las instrucciones del programa. (El nombre 
que hemos dado a la variable en este caso, n, es arbitrario; podríamos haber puesto 
cualquier letra o combinación de letras, cualquier cosa que no fuera una palabra reser- 
vada de BASIC.) 


¿Cómo sabemos que es una variable? 


Un número tal como el 5 es fijo, está entre el 4 y el 6 y no tiene nada de variable. El 
carácter n también es fijo: es una letra concreta del alfabeto. 


Entonces, ¿cómo distingue el ordenador las variables de las constantes? Si hubiéramos 
querido decirle que considerara la n como letra del alfabeto, la habríamos escrito entre 
comillas: n””. El ordenador habría respondido con el mensaje Syntax error, porque 
no entendería la línea FOR “n”=32 TO 255. 
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Al escribirla n sin comillas le hemos dicho al ordenador que n es una variable. La ins- 
trucción FOR de BASIC tiene que ir seguida del nombre de una variable, y el ordena- 
dor da por supuesto que lo que pongamos después de FOR es una variable. 


, 
También le hemos dicho al ordenador n=32 TO 255, con lo que hemos especificado 
el margen de variación de la variable: una sucesión que empieza en 32 y termina en 255, 


Una vez declarada la variable, debemos decirle al ordenador qué tiene que hacer con 
ella; eso es lo que hace la línea 20: 


29 PRINT CHR$(n)5 


Esta instrucción hace que el ordenador, cualquiera que sea el valor de m, busque en 
su memoria el carácter que corresponde a ese valor y lo escriba en la pantalla. 


El punto y coma impide que el ordenador realice un retorno de carro y avance de línea 
después de escribir cada carácter. (De no ser así, los caracteres aparecerían uno debajo 
de otro en la primera columna de cada línea.) 


La línea 30 le dice al ordenador que cuando haya concluido la tarea con el primer valor 
de n (que es el 32) debe retornar a la línea en la que está FOR y volver a hacer lo mismo 
con el siguiente (NEXT) valor de la variable n. Este mecanismo, denominado “bucle”, 
es fundamental para la programación. Gracias a él nos ahorramos el tener que escribir 
largas series de instrucciones similares. Usted aprenderá enseguida a incluirlo en sus 
programas. 


Cuando el bucle FOR ... NEXT alcanza el límite superior del margen declarado (255), 
el bucle termina y el ordenador vuelve al modo directo y muestra el mensaje Ready. 
Este mensaje indica que el ordenador está preparado para recibir más instrucciones, 
una de las cuales podría ser RUN, para ejecutar otra vez el programa. El programa 
está almacenado en la memoria y lo seguirá estando hasta que le digamos al ordenador 
que lo borre o apaguemos la máquina. 


Este programa ilustra un hecho esencial de la informática: todo lo que el ordenador 
hace está relacionado con números. El ordenador ha escrito el alfabeto y todos los de- 
más caracteres usando como referencia para acceder a ellos un número. Cuando usted 
pulsa la tecla A, no le está pidiendo al ordenador que escriba esa letra, sino que busque 
en su memoria la información numérica que necesita para exhibir el carácter en la pan- 
talla. La localización de esa información es función del código numérico que se activa 
al pulsar la tecla. (Cada carácter tiene un código asociado; la relación completa se da 
en el capítulo titulado “Para su referencia ...?”.) 


Pero tampoco el hecho de visualizar el carácter tiene nada que ver con “escribir”, sino 
que es un proceso numérico. 


Por ejemplo, el código ASCII de la letra A es el 65. El ordenador tampoco entiende 
el número 65, por lo que tiene que traducirlo de decimal a una forma que le resulte 
más familiar: el código de máquina. Ya hemos estudiado los principios de esta conver- 
sión en la primera parte de este capítulo. 
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gg. y in A 


Al principio, la conversión de la notación decimal, a la que estamos tan acostumbra- 
dos, a notación hexadecimal nos parece muy difícil. Pensar en números decimales nos 
parece tan natural que cambiar de sistema de numeración es como cambiar de mano 
el tenedor y el cuchillo. 


Para manejar la notación hexadecimal es necesario adquirir cierto grado de destreza 
mental. Una vez adquirida, se empieza a entender el por qué de muchos hechos infor- 
máticos y se hace patente la elegancia de la estructura de este sistema de numeración. 


Si no conoce los sistemas binario y hexadecimal, le sugerimos que lea detenidamente 
la primera parte de este capítulo. 


Cuando el ordenador ha convertido la pulsación de la tecla A en un número comprensi- 
ble para él, busca en una zona de la memoria especificada por ese número, y en ella 
encuentra otra serie de números que describen la forma de la letra. El carácter que us- 
ted puede ver en la pantalla está formado por un bloque de datos, almacenado en la 
memoria en forma de “matriz” numérica: 


MATRIZ EN BLANCO 'a MINÚSCULA A MAYÚSCULA 
(RETICULA) 


Los elementos de la matriz son puntos dispuestos en filas columnas. El carácter se “escribe* 
encendiendo y apagando correctamente los puntos. En el CPC6128 cada matriz tiene 8 fi- 
las y 8 columnas. Si entre los 255 caracteres no encuentra el que necesita, usted mismo 
puede definirlo a su gusto con la instrucción SYMBOL que describiremos más adelante. 


Los caracteres “definidos por el usuario” se construyen especificando cada uno de los 
64 puntos de la matriz. Las combinaciones posibles con 1.84467E +19, es decir, aproxi- 
madamente un 2 seguido de 19 ceros. Si a esto añadimos la posibilidad de agrupar ca- 
racteres para formar bloques más grandes, vemos que las posibilidades de generar grá- 
ficos sólo están limitadas por la imaginación del usuario. 


Lógica 


Una diferencia fundamental entre una calculadora y un ordenador radica en la capaci- 
dad de éste para manejar operaciones lógicas y tomar decisiones en instrucciones del 
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tipo IF ... THEN ... (si ... entonces ...). Para ello, los operadores lógicos tratan 
los Valores a los die son aplicados como grupos de bits y examinan y modifican los 
bits uno a uno. No es fácil describir las operaciones lógicas sin antes dar unas definicio- 


nes concisas. 
Las dos mitades de una expresión lógica son los “argumentos”. Una expresión lógica 
tiene la siguiente forma: 

«argumento» [(operador lógico) (argumento)] 
donde «argumento» puede ser: 


NOT (argumento) 

(expresión numérica) 

(expresión de relación) 

(expresión lógica >) 
Los dos argumentos de un operador lógico tienen que ser enteros; de lo contrario se 
produce el error número 6. 
Los operadores lógicos (en orden de prioridad) y su efecto sobre los bits son los 
siguientes: 

AND El resultado es O a menos que las bits de los dos argumentos sean 1. 


OR El resultado es 1 a menos que los bits de los dos argumentos sean 0. 
XOR El resultado es 1 a menos que los bits de los dos argumentos sean iguales. 


AND es el operador lógico más utilizado. 
PRINT 19 AND 19 

da como resultado 10. 
PRINT 19 AND 12 

da como resultado 8. 
PRINT 19 AND 1999 


también da como resultado 8. 
Esto se debe a que los números 10 y 1000 han sido convertidos a su forma binaria: 
1010 
1111101000 
La operación AND comprueba los bits dos a dos. Si los dos bits de las dos filas son 
1, el resultado es 1: 
0000001000 


y este número binario es el 8 decimal. El operador lógico AND se utiliza para detectar 
cuándo se cumplen simultáneamente dos condiciones. He aquí un ejemplo que explica 


cómo: 


e o a. zzz KA 
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19 INPUT "Dia del mes: ",dia 

290 INPUT "Mes número: ",mes 

30 IF dia=25 AND mes=12 THEN 59 
49 CLS:GOTO 19 

59 PRINT "Feliz Navidad!" 


OR funciona de forma análoga, pero da como resultado 1 a no ser que los bits de los 


dos operandos sean 0, en cuyo caso el resultado es 0. Aplicado a los mismos números 
que en el ejemplo de AND, 


PRINT 1999 OR 19 
1992 


Bit a bit: 


1010 
1111101000 


cuyo resultado es 
1111101010 


Un programa ejemplo: 


19 CLS 
29 INPUT "Mes número: ",mes 


39 IF mes=12 OR mes=1 OR mes=2 THEN 58 
49 GOTO 19 


59 PRINT "Estamos en invierno!" 


El operador NOT invierte todos los bits del argumento (convierte el O en 1, y viceversa): 


19 CLs 
29 INPUT "Mes número: ",mes 


39 IF NOT(mes=á OR mes=7 OR mes=8) THEN 59 
49 GOTO 19 


59 PRINT "No estamos en verano!" 


Observe que se pueden combinar los operadores lógicos, sin más limitación que la lon- 
gitud de la línea: 


19 INPUT "Dia del mes: ".dia 

248 INPUT "Mes número: ",mes 

39 IF NOT (mes=12 OR mes=1) AND dia=29 THEN 59 
49 CLS:GOTO 19 


58 PRINT "No es ni diciembre ni enero, pero puede 
ser un año bisiesto" 


—_ _—_QzP>z-=-»---=A=z=2===—= a 
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El resultado de una expresión de relación es —1 0 0. La representación binaria del nú- 
mero —1 es una sucesión de bits iguales a 1; para el 0, todos los bits son O. El resultado 
de una operación lógica entre argumentos de este tipo da —1 (verdadero) o 0 (falso). 


Añada las siguientes líneas al programa anterior: 


6%8 PRINT NOT (mes=12 OR mes=1) 
79 PRINT (mes=12 OR mes=1) 


Si al ejecutar el programa introduce 29 para el día y 2 para el mes, obtendrá el mensaje 
de la línea 50, y las líneas 60 y 70 escribirán los resultados de las operaciones. 
Finalmente, XOR (OR eXclusivo) produce como resultado “verdadero” siempre que los 
argumentos sean diferentes. 


A continuación resumimos todo lo dicho en una tabla, denominada tabla de verdad. 
Es una forma muy clara de ilustrar qué sucede en una operación lógica bit a bit. 


Argumento A 1010 
Argumento B 0110 
Resultado de AND 0010 
Resultado de OR 1110 


Resultado de XOR 1100 


Caracteres definidos por el usuario 


Una de las primeras aplicaciones que el lector encontrará para los números binarios 
es el diseño de caracteres con la instrucción SYMBOL. Como sabemos, el carácter se 
diseña en una retícula de 8 por 8; cada una de las 8 filas se convierte en un número 
binario poniendo un 1 en lugar del pixel que debe ser iluminado, y un cero en lugar 
del pixel que debe quedar del color del papel. Los 8 números así obtenidos serán los 
parámetros de SYMBOL. Por ejemplo, para definir un carácter que representa una 
casa: 


8 


* = 900B1gOS = GB = = 
AAA = 2gg111199 = k3C = 32+16+8+4 = 68 
* * = g1i990g19 = 442 = 64 +2 = 66 
LX ** = 19199191 = AS = 128 +32 +4 +1 = 165 
* * = 19999991 = 481 = 128 +1 = 129 
AA XX = 19119191 = «BS = 128 +32+16 +4 +1 = 181 
Xx XX %* = 19119991 = «Bi = 128 +32+16 +1 = 177 
AAA = 11111111 = £FF = 128+64+32+16+8+4+2+1 = 255 


e 5 5 5 5 5 1 1 
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xIáOO_ |. 
la orden es 

SYMBOL 249,8,69,66,165,129,181,177,255 
O bien 

SYMBOL 249,t88,£3C,k42,LA5, *81,2£BS, «B1,RFF 


o bien 


SYMBOL 248,Xx99981999,1X99111199, X810909919,xX1g1GDIG1, 
e«x19999981,8X191109191,L£X19119991,2X11111111 


Para escribir el carácter así definido: 
PRINT CHRs(240) 
Finalmente, para agrupar caracteres se puede hacer 


adosadot=CHR$ (249) +CHR$E(1248) 
PRINT adosados 


o bien 


urbanizacion*=STRINGS$(15,240) 
PRINT urbanizacionst: 


La imprenta ... 


PRINT es la primera instrucción que se usa cuando se empieza a programar. En princi- 
pio es muy sencilla, pero podemos complicarla considerablemente. En efecto, no basta 
con pedirle al ordenador que escriba, sino que también debemos decirle dónde y cómo. 


Formato de escritura 


La instrucción PRINT se puede utilizar de diversas formas. La más sencilla es poner 
a su derecha el elemento que se desea escribir, que puede ser un número, una cadena 
literal o el nombre de una variable: 


PRINT 3 
3 


E A A _—___ |. 
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PRINT "hola" 
hola 


a=5 
PRINT a 
s 


a$="prueba" 
PRINT a$ 
prueba 


En una instrucción PRINT se pueden poner varios elementos, intercalando entre ellos 
un separador, o bien TAB o SPC. Los separadores pueden ser la coma o el punto y 
coma. El punto y coma hace que el siguiente elemento se escriba inmediatamente a con- 
tinuación del que se acaba de escribir; la coma provoca el salto a la siguiente zona de 
escritura. La anchura implícita de la zona de escritura es 13, pero se la puede modificar 
con la orden ZONE: 


PRINT 3;-455 
3159 5 


PRINT "buenos", "dias" 
buenos dias 


PRINT 3,-4,5 


3 -4 5 
ZONE 4 
PRINT 3,-4,5 

304 5 


Observe que los números positivos llevan un espacio a la izquierda, mientras que en 
los negativos ese espacio está ocupado por el signo —. Todos los números llevan un 
espacio en blanco a la derecha. Las cadenas se escriben literalmente tal como están en- 


tre las comillas. 


La función SPC lleva como parámetro una función numérica; “escribe” tantos espacios 
como indique el valor de la expresión. Si el valor es negativo, se toma el 0; si es mayor 
que la anchura de la ventana actual se toma esa anchura: 


PRINT SPC(5)"hola" 
hola 


x=3 
PRINT SPC(xX3)"hola” 
hola 


A 5 e 
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TAB es similar, pero el número de espacios que escribe es el necesario para que el si- 
guiente elemento se empiece a escribir en la columna especificada. 


La ventana en la que se escribe es la número 0, a no ser que se especifique otro número 
de canal (+t) antes de la lista de elementos. Se pueden especificar otros canales para en- 
viar la salida a otras ventanas. Los canales 8 y 9 están reservados para la impresora 
y el disco (o cinta), respectivamente. (Obsérvese que para “escribir” en el canal 49 se 
debe utilizar WRITE en lugar de PRINT.) 


PRINT "hola" 
hola — ventana $ 


PRINT $9,"hola”" 
hola — tambien ventana Y 


PRINT $4,"hola" 
hola — ventana 4 
(primera linea de la pantalla) 


PRINT $8,"*"hola" 
hola — €n la impresora 
(si esta conectada) 


Con TAB y SPC se pueden controlar los formatos más sencillos, pero en cuanto el for- 
mato deseado sea un poco más complejo habrá que utilizar PRINT USING y una 
“plantilla? adecuada. Una plantilla de formato es una expresión literal que contiene ca- 
racteres especiales, cada uno de los cuales especifica un formato determinado. Estos 
caracteres, denominados “especificadores de formato”, están explicados en detalle en 
la descripción de PRINT USING (capítulo 3). Aquí vamos a dar algunos ejemplos. 


En primer lugar, he aquí los formatos disponibles para escribir cadenas literales: 


. 


” escribe tantos caracteres como espacios haya en la plantilla, más dos: 


PRINT USING ". "5"cadena de prueba" 
cadena d 


so 


escribe solamente el primer carácter de la cadena: 


PRINT USING "!"j"cadena de prueba" 
c 


Pero el formato literal más útil es seguramente “$”. Con él se anula una función de 
BASIC por la cual, si una cadena es demasiado larga como para caber en la línea ac- 
tual, el ordenador la escribe al principio de la línea siguiente. PRINT USING “8”; de- 
sactiva esa función. (En el siguiente ejemplo ponga BORDER O para hacer visibles los 
bordes del papel.) 


€E_EóHS—— 
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MODE 1:LOCATE 39,1:PRINT "demasiado" 


- linea 1 


demasiado - linea 2 
"MODE 1:LOCATE 39,1:PRINT USING "k";"demasiado" 

de - linea 1 
masiado - linea 2 


Para los números se dispone de gran variedad de plantillas. La más sencilla es PRINT 
USING “44H, en la que cada ff reserva espacio para un dígito: 


PRINT USING "$HHHRHH"5123 
123 


La oposición del punto decimal se puede especificar incluyendo un punto en la 
plantilla: 


PRINT USING "444%. 444884"512.45 
12. 45999 


Los dígitos que quedan a la izquierda del punto decimal se pueden agrupar de tres en 
tres, separados por comas, si se pone una coma a la izquierda del punto en la plantilla: 


PRINT USING "HHHHRHRRR,  HHHH"5123456.78 
123,456.7899 


En el formato se pueden incluir los signos de dólar y de libra esterlina, para que aparez- 
ca siempre el signo monetario antes del primer dígito, aunque el número no llene el for- 
mato. Esto se consigue poniendo $$ o Pt+Pt en la plantilla: 


PRINT USING "S$HH"37 
$7 


PRINT USING "$$H%"5351 
$351 


PRINT USING "RAHAHRH, .44"51234.567 
ñA1,234.57 
Observe cómo se ha redondeado este último número. 


Se puede rellenar el espacio sobrante por la izquierda con asteriscos poniendo *x* en 
la plantilla: 
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PRINT USING "XXH44%4.$4$"512.22 
AX 12.2 


Esto último se puede combinar con los signos monetarios poniendo *x*$ o *x*Pi en la 
plantilla. 


Un signo + al principio de la plantilla especifica que siempre se debe escribir el signo 
del número a su izquierda. Si el + está al final de la plantilla, el signo se describe a 
la derecha del número. 


El signo — sólo se puede poner al final de la plantilla; especifica que se debe poner el 
signo — a la derecha del número si éste es negativo. 


PRINT USING "+HH"312 
+12 


PRINT USING "+HH4"5-12 
-12 


PRINT USING "H4$+"312 
12+ 


PRINT USING "HH-"5-12 
12- 


PRINT USING "HH-"512 
12 


La inclusión de **111?” en la plantilla hace que el número se escriba en forma 
exponencial: 


PRINT USING "$HH.HHrrr1"5123.45 
12.35E5+91 


En cualquier caso, si el número es demasiado grande como para caber en el formato 
especificado, el número no se trunca, sino que se lo escribe entero, precedido de un 
signo Y para indicar lo que ha ocurrido: 


PRINT USING "$444" 5123456 
%*123456 


Ventanas 


El'BASIC del CPC6128 permite la definición y el control de hasta ocho ventanas de 
texto. Todas las acciones de control de textos se pueden referir a cualquiera de estas 
ventanas. 
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Las ventanas se definen con la orden WINDOW, que va seguida de 5 parámetros. El 
primero es opcional y especifica el número de la ventana que se va a definir; si se lo 
omite, el ordenador supone el 0, que es el canal por el que el BASIC emite sus mensajes 
normales (Ready, errores, etc.). Antes del número se pone el signo + para indicar que 
se está dando un número de canal. Los otros cuatro parámetros especifican los extre- 
mos izquierdo, derecho, superior e inferior de la ventana. Como son números de fila 
y de columna, pueden estar comprendidos entre 1 y 80 los dos primeros, y entre 1 y 
25 los dos últimos. 


El siguiente ejemplo define la ventana (canal) número 4, la cual se extiende desde la 
columna 7 hasta la 31, y desde la fila 6 hasta la 18. Reinicialice la máquina y luego 
escriba: 


WINDOW 44,7,31,6,18 


No parece que haya ocurrido nada, así que escriba lo siguiente: 


INK 3,9 
PAPER $4,3 
CLS $4 


En la pantalla ha aparecido un gran rectángulo verde, que es la ventana número 4. Este 
último ejemplo demuestra que las instrucciones PAPER y CLS se pueden referir a cual- 
quiera de las ocho ventanas especifiando el número de canal; su omisión hace que la 
orden actúe sobre la ventana número 0. 


Las órdenes para las que se puede especificar número de ventana son las siguientes: 


CcLS 
COPYCHR$ 
INPUT 
LINE INPUT 
LIST 
LOCATE 
PAPER 
PEN 

POS 
PRINT 
TAG 
TAGOFF 
VPOS 
WINDOW 
WRITE 


La ventana verde que hemos creado habrá borrado parte del texto que teníamos en la 
pantalla, que había sido enviado a la ventana número 0. 
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El texto se puede escribir en cualquier ventana especificando el número de canal en la 
instrucción PRINT: 


PRINT $4,"estoy en la ventana 4" 


Estas palabras han aparecido en el extremo superior de la ventana verde, no en la línea 
siguiente de la pantalla, que es lo que habría ocurrido con: 


PRINT "estoy en la ventana $" 


Observe que al escribir esta última orden el texto ha invadido parte de la ventana verde. 


Si usted desea confinar todos los mensajes de BASIC a la ventana número 4, intercám- 
biela con la implícita (la número 0) mediante la orden: 


WINDOW SWAP 9,4 


El mensaje Ready ha aparecido ahora en la ventana verde y el cursor está debajo de 
él. Escriba lo siguiente: 


PRINT $4,"estoy en la ventana 4" 


El texto ha aparecido debajo de la orden WINDOW SWAP, en lo que antes era la ven- 
tana 0 y ahora es la 4. Estos ejemplos demuestran que el ordenador recuerda la posición 
de escritura de cada ventana incluso después de un intercambio. Escriba lo siguiente: 


LOCATE $4,29,1 
PRINT "estoy en la ventana 9” 
PRINT $4,"estoy en la ventana 4" 


Mientras no se ejecuta una orden WINDOW, todas las ocho ventanas coinciden con 
la pantalla entera. Lo mismo ocurre después de una orden MODE. Así pues, si después 
de jugar con las ventanas se encuentra con que el cursor está en una muy pequeña, pue- 
de salir del lío escribiendo MODE 4: 


MODE 1 
WINDOW 29,21,7,18 
MO 
DE 
1 


El ordenador se ha visto obligado a partir la palabra MODE, pero la instrucción fun- 
ciona igual. (No olvide dejar un espacio entre la E y el 1.) 
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Ahora que ya tiene una idea de cómo funcionan las ventanas, escriba y pruebe el si- 
guiente programa: 


19 MODE Y 

29 FOR n=9 TO 72 

39 WINDOW Hn,n+1,n+ó6,n+1,n+6 
49 PAPER Hn,n+4 

59 CLS én 

68 FOR c=1 TO 209:NEXT c 

79 NEXT n 


Este programa crea 8 ventanas que se solapan y las borra con un color de papel diferen- 
te para cada una. 


Cuando termine el programa y haya aparecido Ready, pulse [RETURN] varias veces 
para observar cómo afecta el desplazamiento de la ventana O a los bloques de colores. 
Sin embargo, aunque el contenido de las ventanas se desplace, las ventanas en sí siguen 
estando en el mismo sitio. Compruébelo escribiendo: 


CLS $4 


Fíjese también en los diferentes efectos de las siguienes Órdenes: 


LIST 
LIST $4 
LIST $3 


Otra característica interesante de la orden WINDOW es que también admite los núme- 
ros que especifican los bordes izquierdo y derecho en orden inverso; es decir, aunque 
el primer parámetro sea mayor que el segundo, BASIC los interpreta en el orden co- 
rrecto. Análogamente ocurre con los bordes inferior y superior. 


19 MODE Y 
29 a=1+RNDX19:b=1+RNDX19 
39 c=1+RNDXZ4:d=1+RNDX24 
49 e=RNDX15 

59 WINDOW a,b,c,d 

69 PAPER e:CLS 

79 GOTO 29 


Interrupciones 


Por si todavía no lo ha leído en otro lugar de este manual, le diremos que una de las 
principales innovaciones del software de los ordenadores Amstrad es su capacidad de 
gestión de las interrupciones desde BASIC; esto hace que el BASIC de Amstrad sea 


E 
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capaz de realizar acciones simultáneas controladas por programa. Esto es lo que se sue- 
le denominar “multitarea”, y se programa con las instrucciones AFTER y EVERY. 


Esta misma habilidad queda demostrada por la forma en que se controla el sonido a 
través de recursos tales como las colas de sonido y la sincronización de canales. 


De todo lo que tenga que ver con la medida del tiempo se encarga el cronómetro patrón 
del sistema, que es un circuito controlado por un cristal de cuarzo. Este reloj se encarga 
de cronometrar y de sincronizar los procesos que tienen lugar dentro del ordenador: 
desde el barrido de la pantalla hasta al envío de impulsos al microprocesador. Toda 
función del hardware que tenga que ver con el tiempo depende del reloj patrón. 


Las instrucciones AFTER (después de) y EVERY (cada) hacen precisamente lo que su 
nombre sugiere. Así, AFTER invoca una determinada subrutina cuando ha transcurri- 
do el tiempo especificado. 


El CPC6128 mantiene un reloj de tiempo real. La orden AFTER permite que un pro- 
grama de BASIC realice una tarea en un instante futuro especificado. Existen cuatro 
temporizadores de retardo, cada uno de los cuales puede tener una subrutina asociada. 


Cuando el tiempo especificado ha transcurrido, la rutina se ejecuta automáticamente, 
exactamente igual que si el ordenador hubiera encontrado un GOSUB en la línea actual 
del programa. Cuando la rutina se acaba, con el RETURN habitual, el programa conti- 
núa a partir del punto en que fue interrumpido. 


La orden EVERY permite que el programa de BASIC ejecute subrutinas a intervalos 
de tiempo regulares. También en este caso se dispone de cuatro temporizadores, a cada 
uno de los cuales se puede asignar una subrutina distinta. 


Los temporizadores tienen prioridades de interrupción diferentes, lo que tiene impor- 
tancia cuando varios de ellos compiten por interrumpir el programa en un momento 
dado. El temporizador 3 tiene la máxima prioridad, y el O la mínima (véase el capítulo 
“Para su referencia ...?). 


19 MODE 1:n=14: x=RNDXx499 

20 AFTER x,3 GOSUB 99 

39 EVERY 25,2 GOSUB 178 

49 EVERY 19,1 GOSUB 189 

59 PRINT"Pruebe sus reflejos:" 

69 PRINT"pulse la barra espaciadora" 
79 PRINT"cuando yo le diga." 

89 IF ind=1 THEN END ELSE 89 

99 x=REMAIN(2) 

199 IF INKEY(47)=-1 THEN 129 

119 SOUND 1,999:PRINT"Tramposo!":GOTO 1649 
124 SOUND 129,298:PRINT"AHORA”:t=TIME 
139 IF INKEY(47)=-1 THEN 139 

148 PRINT"Ha tardado"; 


TAX 5 5 5 5 5 e 
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159 PRINT(TIME-t)/389;"segundos” 
169 CLEAR INPUT: ind=1: RETURN 

179 SOUND 1,9,59:PRINT"."5:RETURN 
189 n=n+1:IF n>26 THEN n=14 

199 INK 1,n:RETURN 


Las órdenes AFTER y EVERY se pueden ejecutar en cualquier lugar del programa. Su 
efecto es reelegir la rutina asociada y poner a cero el temporizador correspondiente. 
Los temporizadores están compartidos por AFTER y EVERY, de modo que una orden 
AFTER cancela la anterior EVERY referida al mismo temporizador, y viceversa. 


Las órdenes DI y El inhiben y habilitan, respectivamente, las interrupciones. Esto sirve 
para permitir que cierta interrupción se procese sin ser interrumpida por otra más prio- 
ritaria. La orden REMAIN da el tiempo que queda en un temporizador y lo desactiva. 


Listas de datos 


Si un programa necesita que se le suministre siempre la misma información cada vez 
que se lo ejecuta, es preferible hacer que esa información esté contenida en el propio 
programa para no tener que teclearla con cada ejecución. Esto es posible gracias al par 
de instrucciones READ/DATA. La orden READ es similar a INPUT en el sentido de 
que asigna valores a variables, pero en lugar de captar los valores por el teclado los 
lee en listas encabezadas por la palabra DATA. Los dos ejemplos siguientes ilustran 
la diferencia: 


19 INPUT "escriba 3 numeros separados por comas: ",a,b,t 
2989 PRINT"los numeros son"jaj"y"jb;j"y"jc 
run 


19 READ a,b,c 
26 PRINT"los humeros son"jaj"y*"jbj"y"jc 
39 DATA 12,19,21 

run 


Los datos contenidos en las listas DATA van separados por comas, lo mismo que los 
que se teclean en respuesta a una instrucción INPUT. 
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Las listas DATA pueden contener, no sólo números, sino también cadenas literales 
constantes: 


19 DIM a$(11) 

28 FOR i=9 TO 114 

39 READ ast(i) 

49 NEXT 

59 FOR i=9 TO 4114 

69 PRINT a$(i);3" *; 

79 NEXT 

89 DATA Cuentan, de,un,sabio,que,un,dia,tan,pobre,y, 
misero,estaba 


Observe que no es necesario encerrar entre comillas las cadenas que se ponen en las 
listas DATA. Las comillas en este caso son opcionales (también lo son en INPUT). El 
único caso en que son necesarias es cuando una cadena contiene una coma; si no se 
la pusiera entre comillas, la instrucción READ se detendría en la coma y no leería el 
resto de la cadena. 


19 READ a+ 

29 WHILE a$<>”3x" 

39 PRINT at 

49 READ a+ 

59 WEND 

6% DATA los dias de la semana son lunes, martes, 
miércoles, jueves, viernes y sábado 

79 DATA "los dias de la semana son lunes, martes, 
miércoles, jueves, viernes y sábado" 

89 DATA *X 

run 


La cadena de la línea 60 contiene comas, y por lo tanto cada tramo será leído por 
READ y escrito por separado. En cambio, la de la línea 70 ha sido delimitada por comi- 
llas y READ la lee de una sola vez. 


El ejemplo anterior demuestra que los datos pueden estar distribuidos en varias líneas 
(60, 70, 80, ...). Otro detalle no tan evidente es que las líneas DATA pueden estar en 
cualquier lugar del programa, antes o después de las instrucciones READ que leen la 
información. 


Si un programa contiene varias instrucciones READ, cada una continúa leyendo donde 
terminó la anterior: 
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run 


DATA 123,456,789,321,654,2343 
FOR i=1 TO 5 

READ num 

total=total+num 

NEXT 


READ total2 
IF total=total2 THEN PRINT "los datos son 


correctos" ELSE PRINT "hay un error en los datos" 


Modifique uno de los primeros cinco números de la lista de la línea 10 y ejecute otra 
vez el programa. Esta técnica de poner al final de la lista un dato adicional que sea 
la suma de los anteriores constituye un buen método de detección de errores en los da- 
tos, especialmente si los datos son muchos. Se le llama “suma de verificación” 


(checksum). 


Si un programa requiere datos mixtos (cadenas y números), se los puede combinar en 
una misma lista DATA, a condición de que READ los lea en el orden correcto. Por 
ejemplo, si una lista DATA contiene dos números seguidos de una cadena, la instruc- 
ción READ tendrá que leer primero dos variables numéricas y luego una literal: 


DIM a(5),b(5),5$(5) 

FOR i=1 TOS 

READ a(i),b(1),s$(i) 

NEXT 

DATA 1,7,Alfredo,3,9,Juan,2,2,Enrique, 4,6, 
Pedro,9,1,Manuel 

FOR is=1 TO 5 

PRINT s$(i1),":";ja(i)Xb(i) 

NEXT 


También se pueden separar los datos en dos listas distintas: 


DIM a(5),b(5),5$(5) 

FOR i=1 TO 5 

READ a(i),b(i) 

NEXT 

FOR i=1i TO 5 

READ s$(i) 

NEXT 

DATA 1,7,3,9,2,2:4,6,9,1 

DATA Alfredo, Juan,Enrique,Pedro,Manuel 


199 FOR i=1i TO 5 
119 PRINT s$(1),":"5a(i)X*b(i) 
129 NEXT 
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——_—_ —_——_—_———————— — o _—— —_— _— gs 
Si ahora cambiamos el límite superior de la línea 20: 
29 FOR i=1 TO 4 


los dos primeros intentos de leer cadenas darán “9” y “1”. Estos valores son cadenas váli- 
das, pero el programa no funciona como esperábamos. Una forma de asegurar que el 
programa funcione correctamente consiste en incluir las líneas: 


15 RESTORE 89 
45 RESTORE 99 


La orden RESTORE hace que el puntero de datos “apunte” hacia el principio de la línea 
especificada; por lo tanto se la puede incluir en una instrucción condicional para que 
el bloque de datos leídos dependa del resultado de alguna comprobación. Por ejemplo, 
en un juego que esté previsto para varios niveles de destreza, los datos de cada nivel 
pueden ser seleccionados mediante una variable adecuada. Veamos un ejemplo: 


19899 REM sección para dibujar la pantalla 
1919 IF nivel=1 THEN RESTORE 2919 

1929 IF nivel=2 THEN RESTORE 2519 

1939 IF nivel=3 THEN RESTORE 3919 

1949 FOR y=1 TO 25 

1959 FOR x=1 TO 498 

1069 READ car 

1979 LOCATE x,y:PRINT CHR$(car); 

1989 NEXT x,y 

28909 REM DATA para pantalla 1 

2819 DATA 209,199,244,244,219, ... etc. 
2599 REM DATA para pantalla 2 

2519 DATA 199,1903,245,243,251, +... etc 
35009 REM DATA para pantalla 3 

3919 DATA 199,191,192,193,194, ... etc. 


Otra aplicación típica de las instrucciones DATA/READ/RESTORE es un programa 
que interprete una melodía. Los periodos de tono se pueden poner en listas data; RES- 
TORE puede hacer que se repita una sección moviendo el puntero de datos hacia atrás: 


19 FOR i=i TO 3 

29 RESTORE 199 

39 READ nota 

49 WHILE nota<>-1 
59 SOUND 1,nota,35 
68 READ nota 


O 0 E DO DO DO O OI 
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79 WEND 
89 NEXT 

9% SOUND 1,142,199 

199 DATA 95,95,142,127,119,1906 
119 DATA 95,95,119,95,95,119,95 
129 DATA 95,142,119,142,179,119 
139 DATA 142,142,196,119,127,-1 
run 


El sonido de la música 


De todas las instrucciones del CPC664, es posible que las de sonido y envolventes le 
parezcan las más imponentes a primera vista. Y sin embargo, con un poco de práctica, 
muy pronto podrá programar ruidos de diversos tipos e incluso melodías con armonía. 


Empecemos por analizar las cuatro primeras partes de la instrucción SOUND, que son 
las siguientes: situación de canales, periodo de tono, duración de la nota y volumen. 
Lo primero que hay que saber es en qué margen de valores puede estar cada uno de 
estos parámetros. 


Aplazaremos el primero de momento porque es el más complicado. El segundo, perio- 
do de tono, puede tener cualquier valor entero comprendido entre O y 4095. Sin embar- 
go sólo algunos de estos valores producen notas reconocibles: son los que están relacio- 
nados en la parte 5 del capítulo “Para su referencia ...”. Por ejemplo, el número 239 
produce la nota DO media; el 253 produce la nota SI inmediatamente anterior; los va- 
lores 240 a 252 producen cada uno un tono diferente, pero ninguno de ellos correspon- 
de a la escala del piano. Si el parámetro es 0, no se produce ningún tono; esto es útil 
cuando se está generando ruido. 


El tercer parámetro de la orden SOUND especifica la duración de la nota en unidades 
de centésimas de segundo. Su valor puede estar normalmente entre 1 y 32767. Si es 0, 
la duración queda controlada por la “envolvente” (de la que hablaremos más adelante). 
Si el parámetro es negativo, su valor obsoluto indica cuántas veces se va a repetir la 
envolvente; por ejemplo, —3 significa “repetir la envolvente tres veces”. 


El cuarto parámetro especifica el volumen. Puede valer entre 0 y 15; el valor implícito 
es 12, que es el que el ordenador supone si no se especifica otra cosa. En los sonidos 
sencillos que hemos conocido hasta ahora, el volumen ha permanecido constante du- 
rante el tiempo en que ha sonado cada nota. Sin embargo, cuando se utiliza una *envol- 
vente de volumen” para hacer que éste deje de ser constante, el parámetro “volumen” 
de SOUND se considera como volumen inicial de la nota. 


Bueno, vamos con el parámetro de situación de canales. Quizá sepa ya el lector que 
el significado de este parámetro depende del valor de sus bits; para entenderlo necesita- ' 
rá saber algo acerca de los números binarios (parte 1 de este capítulo). 
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—— a 5 5 5 5 5 


El sonido se puede generar en tres canales distintos. Si el ordenador está conectado a 
un amplificador estereofónico, un canal será el derecho, otro el izquierdo y otro común 
a ambos o central. Para especificar en qué canal o canales debe sonar una nota se utili- 
zan los siguientes números: 


1 canal A 
2 canal B 
4 canal C 


Para envíar el sonido a varios canales, se suman los números correspondientes. Por 
ejemplo, para que la nota suene en los canales A y C, el parámetro debe ser 14+4=5. 


SOUND 3,284 


Se preguntará el lector por qué el número del canal C es 4, y no 3. Observe que estos 
tres números son potencias de 2(1=210, 2=211, 4=212) y se combinan para dar un nú- 
mero binario. Si imaginamos un número binario de tres dígitos, cada uno de ellos se 
puede utilizar para indicar si el canal correspondiente debe estar conectado o desconec- 
tado. En el ejemplo anterior, 5 en decimal es equivalente a 1*44+0+2+1+*1, es decir, 
101 en binario. Si a los dígitos de este número binario les ponemos las etiquetas C, B 
y Á, tenemos 


CBA 
11.0 1 


de forma que C y A están conectados, mientras que B está desconectado. Si quisiéra- 
mos que la nota sonase en los canales A y B, el número tendría que ser 


CBA 
0 1 1 


En decimal: 0+44+1+*2+1*1=3. La orden SOUND sería 


SOUND 3,142 


Naturalmente, este número tiene que coincidir con el que se obtendría sumando los va- 
lores correspondientes a los dos canales: 14+2=3 (recuerde que A=1, B=2, C=4). 


Si después de todo no ha entendido cómo funciona esto en binario, no se preocupe. 
Le basta con saber que las combinaciones de canales se programan sumando los núme- 
ros de selección de los canales deseados. 


Lamentablemente (o afortunadamente, según cómo se mire), todavía podemos sumar 
otros números a este parámetro. Así, los números 8, 16 y 32 especifican que el sonido 
debe sincronizarse con otro canal (A, B o C, respectivamente). Ahora hace falta saber 
qué es eso de “sincronizar con un canal”. Pues bien, los sonidos que hemos generado 
hasta ahora han ido directamente al canal especificado. Escriba lo siguiente: 


SOUND 1,142,2999 
SOUND 1,99,209 
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A menos que sea usted un mecanógrafo muy lento, habrá tenido tiempo de escribir la 
segunda orden antes de que se extinguiera el primer sonido. Esto ocurre porque el siste- 
ma de sonido puede guardar hasta cinco órdenes en cada una de las colas de los tres 
canales. Si queremos que suene una nota por el canal A y luego dos notas simultánea- 
mente en los canales A y B, necesitamos un forma de indicar al ordenador que no debe 
ejecutar la nota del canal B mientras no haya terminado la primera del A. En esto con- 
siste la sincronización de canales. Hay dos formas de conseguirla: 


SOUND 1,24%0,1999 
SOUND 3,99,299 


En este ejemplo hemos dirigido la segunda nota a A y B, y por lo tanto no puede sonar 
mientras no haya concluido la primera. La limitación de este método es que el sonido 
que se envía a varios canales tiene que ser igual en todos ellos (en este caso, ,90,200 
era igual para el A que para el B). El otro método es el siguiente: 


SOUND 1,299,2009 
SOUND 1+16,99,298 
SOUND 2+8,149,499 


Aquí hemos hecho que la segunda nota de A se sincronice con el sonido de B (y que 
éste se sincronice con el canal A). La ventaja de este método es evidente: las notas sin- 
cronizadas pueden ser (y en este caso son) diferentes. Estos números de sicronización 
también son interpretables bit a bit: 


8=213, 16=214, 32=215 


Así, el número de situación de canales se puede considerar como número binario cuyos 
dígitos tienen el siguiente significado: 


Sincr. con Sincr. con Siner. con Sonar en Sonar en Sonar en 
Cc B A Cc B A 
Sumar 32 Sumar 16 Sumar 8 Sumar 4 Sumar 2 Sumar 1 


Por ejemplo, para hacer sonar una nota en el canal C sincronizado con el A: 
0 0 1 1 0 0 
Éste es el número binario 1100, equivalente a 8+4 en decimal. 


Así pues, el número de situación de canales 12 ordena a la máquina que haga sonar 
una nota en el canal C y que espere por una nota que debe sonar en el canal A y que 
ha sido marcada para sincronizarla con el C. 


Si ahora sumamos 64 (216) al parámetro, estamos indicando que la nota debe ser re- 
tenida. Esto significa que no va a sonar mientras no la liberemos con la orden 
RELEASE. 


Finalmente, si sumamos 128 (=217), borramos la cola de sonido del canal especificado. 


Cuando usted guste ... 9/35 


Por ejemplo, si hemos ordenado un sonido que va a durar un buen rato, podemos anu- 
larlo borrando la cola del canal correspondiente: 


SOUND 1,248,30099 testa nota dura 5 minutos) 
SOUND 1+128,9 (pero esta la detiene) 


Cuando se esté en modo directo, la forma más rápida de interrumpir un sonido es pul- 
sar [DEL] al principio de la línea; el pitido que así se produce borra todas las colas de 
sonido. 


Ahora que ya sabemos enviar sonido a cualquier combinación de canales (con sincroni- 
zación, si es necesario), vamos a intentar producir algo más agradable que los molestos 
pitidos que produce una orden SOUND en esta forma sencilla. Lo haremos dotando 
al sonido de una envolvente: una gráfica que define cómo evoluciona la intensidad del 
sonido a lo largo del tiempo. Las notas producidas por los instrumentos musicales tie- 
nen una fase inicial de ataque en la que el volumen sube muy deprisa; después se man- 
tiene a un nivel algo inferior hasta que finalmente decae gradualmente a cero. En el 
ordenador se puede dar una envolvente de este tipo a las notas producidas por la orden 
SOUND. La instrucción con la que se programa la envolvente es ENV. Veamos un 
ejemplo sencillo: 


ENV 1,5,3,4,5,-3,8 
SOUND 1,142,9,9,1 


La instrucción ENV se debe ejecutar antes que la SOUND que la utiliza. Para invocar 
una envolvente en una instrucción SOUND se pone como quinto parámetro de éste el 
número de referencia de la envolvente, en este caso el 1, que es el número con que se 
la creó en la instrucción ENV. Los parámetros de ENV describen tanto la duración co- 
mo el volumen de la nota, de modo que en SOUND podemos poner O en lugar de los 
datos de duración y volumen. La envolvente del ejemplo anterior hace que la nota crez- 
ca en $ etapas, en cada una de las cuales el volumen aumenta en 3 unidades y cuya dura- 
ción es de 4 centésimas de segundo. Después se especifica que el volumen debe decaer 
en 5 etapas, —3 unidades en cada una, siendo la duración de cada etapa 8 centésimas 
de segundo. Es decir, el primer parámetro de ENV es el número de referencia de la en- 
volvente y va seguido por grupos de tres números. Dentro de cada grupo, el primer pa- 
rámetro es el número de escalones de variación del volumen; el segundo, la amplitud 
de esos escalones; y el tercero, su duración. La duración total de cada sección será igual 
al producto del primer parámetro (número de escalones) por el tercero (duración de 
cada escalón). El aumento o disminución total del volumen es igual al producto del pri- 
mer parámetro por el segundo (variación del volumen por escalón). La duración total 
de una envolvente es la suma de las correspondientes a las secciones que la integran. 


En el ejemplo anterior, SOUND fijaba en 0 el volumen inicial de la nota. Pero esto 
no tiene que ser necesariamente así. En el siguiente ejemplo el volumen decrece desde 
el valor inicial 15 y luego vuelve a subir: 


ENV 2,5,-2,1,28,9,1,19,1,1 
SOUND 1,142,98,15,2 
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El número de esta envolvente es el 2. Consta de tres secciones. En la primera el volumen 
se reduce en 5 escalones de —2; es decir, varía a través de 5 etapas y en cada una se 
reduce en 2 unidades. La duración de cada etapa es de 1 centésima de segundo. La se- 
gunda sección tiene 20 etapas en las que no varía el volumen (0) y cada una de las cuales 
dura 1 centésima de segundo. Finalmente, la tercera sección consta de 10 etapas, con 
un incremento de volumen de 1 unidad y duración de 1 centésima de segundo cada una. 


La instrucción SOUND especifica un volumen inicial de 15; al final de la primera sec- 
ción ha decrecido hasta 5; se mantiene a ese nivel durante 20 centésimas de segundo 
y luego vuelve a crecer hasta alcanzar el nivel 15. 


Para mejor visualizar y diseñar la forma de las envolventes conviene dibujarlas en un 
papel milimetrado y leer en él los valores de los parámetros requeridos. En las dos figu- 
ras siguientes mostramos las dos envolventes definidas hasta ahora: 


Er] ss wo se 


5] 
1 
4 
4 
4 
4 


NUMERO DE ESCALONES: 5 


NUMERO DE ESCALONES: 5 
ALTURA DE ESCALON: -3 


ALTURA DE ESCALON: 3 


DURACION DE ESCALON: 4 DURACION DE ESCALON: 8 
Variación 
relativa de 
volumen 
1234 5678 9101112 13M 1516 17 18 19 2021 22 2324 25 26 27 28 203031 32 333435 unidades de 


NUMERO DE ES- | NUMERO DE ESCALONES: 20 


l 
! 
: I 
ETURA DE. ES 1 ALTURA DE ESCALON: 0 . 
CALON: =2. 1 DURACION DE ESCALON: 1 ] 
DURACION DE 
ESCALON: 1 


El máximo número de secciones que se puede incluir en una envolvente es 5; como cada 
sección requiere 3 parámetros, la instrucción ENV puede llegar a tener 16 parámetros 
en total, contando el primero, que indica cuál de las 15 envolventes posibles se está de- 


Cuando usted guste ... 9/17 


finiendo. Podemos imaginar los números de volumen como dispuestos en círculo; si 
vamos subiendo de nivel y sobrepasamos el 15, volvemos al 0; análogamente, si intenta- 
mos descender por debajo del 0, volvemos al 15. Por ejemplo, en 


ENV 3,9,5,29 
SOUND 1,142,9,9,3 


la envolvente consta de una sola sección de 9 etapas, cada una de las cuales incrementa 
el volumen en 5 unidades y dura 20 centésimas de segundo. Al terminar la tercera eta- 
pa, el volumen ha subido de O a 15; en la cuarta etapa volverá a 4; en la quinta a 9, 
etc. El proceso está ilustrado en la siguiente figura: 


180 unidades de 


NUMERO DE ESCALONES: 9 
ALTURA DE ESCALON: 5 
DURACION DE ESCALON: 20 


El margen de valores para el número de escalones es de O a 127. En cada uno el valor 
puede variar entre —128 y +127 (los valores negativos representan disminución). La 
duración de cada escalón puede ser de entre 0 y 255 (centésimas de segundo). 


Ya sabemos cómo variar el volumen de una nota. Ahora podemos estudiar cómo se 
define la variación de su tono con el tiempo para producir efectos tales como el 
A , 
vibrato”. 


El método es muy parecido al de las envolventes de volumen. Las envolventes de tono 
se definen con la instrucción ENT. Por ejemplo: 


ENT 1,5,1,1,5,-1,1 
SOUND 1,142,19,15,,1 


Las envolventes de tono se invocan con la instrucción SOUND poniendo en ésta como 


sexto parámetro el número de referencia de la envolvente. La instrucción ENT tiene 
que ser ejecutada antes que la SOUND que la utiliza. 
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1/100 segundos + 


Este primer ejemplo de ENT define la envolvente de tono número 1. La primera sección 
consta de 5 etapas; en cada una el periodo de tono crece en 1 unidad; cada una dura 
1 centésima de segundo. La segunda sección consta de 5 etapas; la variación del periodo 
de tono en cada una de ellas es — 1 (descenso); la duración de cada etapa es de 1 centési- 
ma de segundo. La duración total es, pues, 5+5=10 centésimas de segundo. Obsérvese 
que esta duración ha sido especificada en SOUND, ya que la duración de la envolvente 
de tono no determina la duración de la nota (mientras que sí lo hace la envolvente de 
volumen). Si la duración especificada en SOUND es menor que la de la envolvente, 
el final de ésta se perderá. Si es mayor, el final de la nota se ejecutará a tono constante. 
Esto último es también aplicable a las envolventes de volumen. 


(Nótese la ausencia del número de envolvente de volumen en la última instrucción 
SOUND, debida a que aún no hemos definido una envolvente de volumen para este 
sonido.) 


Las envolventes de tono normalmente duran menos que la nota. Se puede hacer que 
la envolvente se repita mientras la nota está sonando. Para ello se especifica un número 
de envolvente negativo, cuyo valor absoluto se cita en la instrucción SOUND: 


ENT -5,4,1,1,4,-1,1 
SOUND 1,142,199,12,,5 


Esta repetición de la envolvente produce el efecto “vibrato?. Cuando se diseñan envol- 
ventes de tono, es conveniente que el tono varíe simétricamente con respecto al valor 
inicial, de forma que al repetir la envolvente el tono no se desvíe demasiado con respec- 
to al valor central. Pruebe el siguiente sonido: 


ENT -6,3,1,1 
SOUND 1,142,99,12,,6 


Habrá observado que la frecuencia ha disminuido drásticamente. Esto ha ocurrido por- 
que la envolvente impone un aumento del periodo de tono de 3 unidades y se repite 
30 veces (90/3). No obstante, ese efecto se puede aprovechar para imitar trinos y 
sirenas: 


ENT -7,28,1,1,20,-1,1 
SOUND 1,199,499,12,,7 


ENT -8,69,-1,1,60,1,1 
SOUND 1,194,480,12,,8 


Se pueden definir hasta 15 envolventes de tono, con números de referencia del 1 
al 15; los números negativos indican que la envolvente se repite. Para cada sección, el 
número de escalones puede estar entre O y 239, La variación del periodo de tono en 
cada escalón puede ser de entre —128 y +127, La duración de cada escalón puede ser 
de entre O y 255 (centésimas de segundo). Cada envolvente puede tener hasta 5 
secciones. 
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El último parámetro que se puede incluir en la instrucción SOUND, el séptimo, carac- 
teriza el nivel de ruido que se añade al sonido. Obsérvese que sólo hay un canal de ruido 
y que, por consiguiente, cada vez que se especifica un nivel de ruido se anula la anterior 
especificación. 


El ruido se puede mezclar con un tono, pero también se lo puede programar por separa- 
do, para lo cual se debe poner un 0 como periodo de tono en SOUND. Esto es útil 
para imitar ruidos de percusión: 


ENT -3,221,1,2,-1,1 
ENV 9,15,1,1,15,-1,1 
FOR asi TO 19:SOUND 1,49099,9,9,9,3, 15: NEXT 


Un ruido como éste puede servir de base para imitar el de una locomotora. Obsérvese 
que hemos combinado los dos tipos de envolvente y el ruido. En SOUND hemos puesto 
O para los parámetros de duración y de volumen, por lo que estas características quedan 
controladas por las envolventes de volumen. 


Como ya estamos en condiciones de utilizar SOUND, ENV y ENT a plena potencia, 
vamos a estudiar algunas otras órdenes y funciones. 


Como el lector recordará, al describir el primer parámetro de SOUND dijimos que si 
le sumábamos el número 64 el sonido quedaba “retenido” en la cola, y que no sonaría 
mientras no lo liberásemos. La forma de liberarlo es ejecutar la orden RELEASE. Esta 
palabra va seguida de un número cuyos bits determinan a qué canales afecta la orden: 


4 significa canal C 
2 significa canal B 
1 significa canal A 


Los canales se combinan sumando los números correspondientes. Así, para liberar el 
sonido de los tres canales la orden que se requiere es: 


RELEASE ? 


donde 7=1+2+4, Si no hay sonido retenido en ningún canal, la orden no tiene efecto. 
Pruebe lo siguiente: 


SOUND 1+64,99 
SOUND 2+64,149 
SOUND 4+64,215 
RELEASE 3:FOR t=1 TO 19900: NEXT:RELEASE 4 


No se produce ningún sonido mientras no se ejecuta la primera orden RELEASE, la 
cual libera los sonidos de los canales A y B. Después de una pausa, la segunda orden 
RELEASE libera el canal C. 


Hay otro método para sincronizar sonidos. Cuando se retiene un sonido sumando 64 
a su número de situación de canal, no sólo queda él retenido, sino todos los que se en- 
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víen a continuación a ese mismo canal. Si se envían más de cuatro sonidos a una cola 
que está retenida, la máquina queda bloqueada hasta que se libere la cola (posiblemente 
al ejecutarse una subrutina invocada por AFTER o EVERY). Ésta no es una buena for- 
ma de gestionar los sonidos, ya que la máquina se detendrá cada vez que se llene una 
cola. Lo mismo ocurre si se ejecutan varias órdenes SOUND seguidas. Pruebe este 
programa: 


19 FOR a=1 TO 8 

29 SOUND 1,199%a, 299 
39 NEXT 

49 PRINT"hola" 

run 


El texto no aparece en la pantalla inmediatamente, sino al cabo de tres segundos. Esto 
ocurre porque el programa no puede llegar a la línea 40 mientras no haya espacio libre 
en la cola para almacenar todos los sonidos. 


BASIC dispone de un mecanismo de interrupción, similar al que se utiliza en AFTER, 
EVERY y ON BREAK GOSUB, mediante el cual se puede hacer que se ejecute una 
subrutina cada vez que queda espacio libre en una cola especificada: 


19 a=9 

29 ON SGQ (1) GOSUB 10898 

39 PRINT a; 

49 GOTO 38 

18999 a=a+19 

18189 SOUND 1,a, 294 

1929 1F ax299 THEN ON SQ(1) GOSUB 19849 
1939 RETURN 


Observe que el programa no se detiene. La instrucción SOUND no se ejecuta mientras 
no hay espacio libre en la cola del canal A (1), hecho que detecta la orden ON SQ(t) 
GOSUB de la línea 20. Esta orden inicializa un mecanismo de interrupción que ejecuta 
la subrutina cada vez que queda un hueco libre en la cola especificada. El mecanismo 
tiene que ser reinicializado cada vez que se ejecuta la subrutina (línea 1020). En este 
ejemplo, la reinicialización sólo se produce si a es menor que 200. 


En un programa que lleve a cabo acciones relativamente lentas (por ejemplo, mover 
objetos por la pantalla), se puede poner música de fondo programando una subrutina 
que ejecute una nota cada vez que quede un hueco libre en la cola. De esta forma se 
asegura que el programa no se va a detener en espera de que quede espacio en la cola. 
Si los valores de las notas están contenidos en listas DATA, se puede hacer que la sub- 
rutina de sonido deje de reinicializarse cuando los datos estén a punto de agotarse. 


El parámetro que va entre paréntesis en la instrucción ON SQ([ ) GOSUB puede ser 
1, 2 0 4, dependiendo del canal cuya cola se desee examinar. 
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Hay una función, SQ( ), que se puede utilizar para determinar el estado de los canales 
de sonido. Su parámetro puede ser 1, 2 o 4. El valor generado por la función se inter- 
preta bit a bit según la siguiente tabla: 


Bit Decimal Significado 


0,1,2 1a4 Número de huecos libres en la cola 

3 8 La primera nota de la cola está marcada para sincronizar con el canal A 
4 16 La primera nota de la cola está marcada para sincronizar con el canal B 
5 32 La primera nota de la cola está marcada para sincronizar con el canal C 
6 64 La primera nota de la cola está retenida (está a 1 el bit de retención) 

7 128 En este momento está sonando una nota 


Pruebe el siguiente ejemplo: 


19 SOUND 2,299 
20 x=80 (2) 

390 PRINT BINS$(x) 
run 


La línea 30 escribe el número binario 10000100. El bit 7 está a 1, lo que indica que en 
el canal había una nota sonando cuando se ejecutó la línea 20. Los tres dígitos menos 
significativos son 100; equivalen al número decimal 4, y esto quiere decir que había 
cuatro espacios libres en la cola. Esta función examina la situación del canal en un pun- 
to específico del programa; en cambio, ON SQ( ) GOSUB examina la cola, y reacciona 
en consecuencia, en un punto indeterminado. 


Hasta ahora todos los ejemplos han consistido en hacer sonar una o dos notas. Si se 
va a ejecutar un grupo de notas independientes, por ejemplo las de una melodía, sus 
características se pueden guardar en líneas DATA, para luego leerlas con READ e in- 
troducirlas en SOUND: 


19 FOR octava=-1 TO 2 

29 FOR x=1 TO 7:REM notas por octava 
36 READ nota 

46 SOUND 1,nota/2s+octava 

598 NEXT 

69 RESTORE 

78 NEXT 

89 DATA 426,379,358,319,284,253,239 
run 


El ejemplo final de esta sección se basa en este concepto. En los canales A y B se hace 
sonar una melodía con ritmo, utilizando la sincronización. Este ejemplo muestra cómo 
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utilizar las listas DATA para incluir información sobre nota, octava, duración y 
sincronización: 


19 REM la linea 199 da la melodia en clave de agudos 

29 REM la linea 299 da la melodia en clave de graves 

39 DIM escala%(12):FOR x%=1 TO 12:READ escala%(x%) ¿NEXT 

49 canali%=1:READ canali$:canal2%=2:READ canal2% 

59 CLS 

69 velocidad%=12 

79 escalat=" a-b b c+c d-e e ++4 g+g" 

89 ENV 1,2,5,2,8,-1,19,19,09,15 

99 ENV 2,2,7,2,12,-1,19,19,9,15 

199 ENT -1,1,1,1,2,-1,1,31,1,1 

119 DEF FNm$(s$,5)=MID+$(s%$,5,1) 

129 canali%=1:GOSUB 299 

139 canal2%=1:G0SUB 389 

149 IF canali%rcanal2%4>9 THEN 149 

159 END 

169 DATA £:777,478c,tóa7,t647,t%5ed, 598 

179 DATA £547,449fc,t4b4,4970,8431,63f4 

189 DATA 4cr4+44f1f1g1A1-B2C2f43231A1-BéA2Crifigiftigial- 
b1A1-b2C292A292f131a292fé6e2c2e2c292e2c1-B1A292f4e4d 
2c4f3f1c2d49-b2+fr2-B2A292f6e29r4C4-Biaifi-b1i32c2-b%4a 
494fr6A2A2-B4-B2Ar2-B2A292f6e294C4-B1A1Ff1-Big2C02-B4 
A4g84. 

199 DATA r4f4+42844e4c4fr8f4e2f2e4d2e2d48c8có6e2449498e 4434 
1ic4dr8g4cr4e4cóf2d4c4c8fr8-e4dreg8c4e4céf2d4c4c8f. 

2660 REM enviar sonido al canal A 

219 pié$=FNm$(canali¿,canali%) 

229 IF pi$<>"r" THEN ri%=9:GOTO 249 

239 rit=1é6:canall%=canali%+1:pi$=FNm$(canali4t,canali%) 

249 IF pi$="." THEN canali%=9: RETURN ELSE 11%=VAL (p1%) 

259 canali%=canali1%+1 

269 ni$=FNm$(canal1i4$,canal1%) 

2798 canali%=canal1%+1 

2898 IF ni$="+" OR ni$="-" THEN 359 

2998 ni$=" "+nis 

399 ndi%=(1+INSTR(escalas$, LOVER$(n1$)))/2 

319 IF ASC(RIGHT$(n1%$,1))>96 THEN o1%=8 ELSE ol%=16 

329 SOUND 1+ri%,escala%índi%)/oi%, velocidad*X*11%,9,1,1 

339 ON SQ(1) GOSUB 244 

3490 RETURN 

358 ni$=n1$+FNm$(canali4$%,canali%) 

3648 canali%=canal1%+1 

3790 GOTO 3900 

389 REM enviar sonido al canal B 
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399 p2$=FNm$(cana12%$,canal2%) 

499 IF p2$<>"r" THEN r2%4=9:G0T0 429 

419 r2%=8:canal2%=canal2%+1:p2$=FNm$(canal2%,canal2%) 
429 IF p2$="." THEN canal2%=9:RETURN ELSE 12%=VAL (p2%) 
.439 canal2%=canal2%+1 

4498 n26=FNm$(canal2$,canal2%) 


459 canal2%=canal2%+1 E 

469 IF n2$="+” OR n2$="-" THEN 539 

479 n2t=" "+n2% 

489 nd2%=(1+INSTR (escalas, LOWER$(n2$)))/2 

4998 IF ASC(RIGHTS(n2$,1))>96 THEN 02%=4 ELSE 02%=8 
599 SOUND 2+r2%,escala%(nd2%)/02%,velocidad%*124,9,1,2 
519 ON SQ(2) GOSUB 388 

528 RETURN 

539 n2t=n2$+FNm*(canal2%$, canal 2%) 

549 canal2%=canal2%+1 

559 GOTO 489 

run 


Dicho gráficamente ... 


En esta sección vamos a repasar las funciones gráficas del ordenador. Iremos constru- 
yendo paso a paso un primer ejemplo para ilustrar el funcionamiento de las diversas 
instrucciones. 


Para empezar, dividimos la pantalla en una ventana de texto (línea 40) y una ventana 
gráfica (línea 30). Además, establecemos el modo de pantalla y asignamos tintas patpa- 
deantes.a dos plumas (líneas 20): 


19 REM MASK y TAG en una ventana 
28 MODE 1: INK 2,19,9: INK 3,4,19 
39 ORIGIN 449,199,449,649, 199,399 
44 WINDOW 1,26,1,25 

59 CLG 2 


Si ejecuta este programa, podrá ver un cuadrado parpadeante al lado derecho de la 
pantalla. Este cuadrado ha sido borrado con la pluma número 2 (magenta/cyan) por 
la línea 50. El origen de coordenadas ha sido trasladado al extremo inferior izquierdo 
del cuadrado. La orden MODE ha llevado el cursor al origen de coordenadas (X=0, 
Y=0); podemos dibujar una diagonal en el cuadrado con la línea 60: 


698 DRAW 299,299,3 
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Ejecute el programa y observe el efecto. Añada ahora: 
89 MOVE 9,2:FILL 3 


La línea 80 lleva el cursor al interior de una de las dos mitades del cuadrado y la rellena 
con la pluma 3. El límite del recinto que se rellena es el borde de la ventana gráfica 
(que en este caso es también el del cuadrado) y cualquier recta que se haya dibujado 
con la pluma gráfica actual (la 3) o con la que se utiliza para rellenar (también la 3). 


Ejecute esta versión del programa. 


Para comprobar lo dicho acerca de los límites del recinto, añada la siguiente línea 70. 
Observe que la única razón para que el rellenado se limite a una mitad del cuadrado 
es que la pluma de rellenar es el misma con la que se dibujó la diagonal. 


79 GRAPHICS PEN 1 
run 


Modifique la línea 80 para rellenar con la pluma 1 y ejecute el programa para compro- 
bar esto último. Cuando lo haya hecho, vuelva a dejar la línea 80 como estaba (FILL 3). 


Añada ahora las líneas siguientes para dibujar un cuadrado: 


199 MOVE 29,29 
119 DRAW 189,29 
129 DRAW 189,189 
139 DRAW 29,189 
149 DRAW 29,29 
run 


Este cuadrado ha sido dibujado con la pluma 1 a causa de la línea 70. Si omitiéramos 
la línea 70, tendríamos que incluir *,1” como tercer parámetro de MOVE en la línea 
100, o bien en el DRAW de la línea 110, para pedir al ordenador que cambiase la pluma 
gráfica. 


Líneas discontinuas 


Las rectas que dibujemos no tienen que ser necesariamente de trazo continuo, sino que 
pueden ser de puntos. La orden MASK nos permite definir el tamaño de los puntos. 
La forma que definamos se repetirá cada 8 pixels. Si la primera línea deja incompleto 
el último grupo de 8 pixels, la siguiente empezará dibujando los puntos restantes. Con 
una nueva orden MASK (quizá con el mismo parámetro) se hace que el siguiente dibu- 
jo empiece por el principio del grupo. 
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El parámetro de MASK es en realidad un byte binario en el que los bits que están a 
1 indican que el pixel correpsondiente se debe iluminar con la tinta de la pluma. En 
nuestro ejemplo vamos a poner el parámetro directamente en forma binaria (identifica- 
da por el prefijo £X); queremos que cada grupo de 8 pixels tenga cuatro pixels ilumina- 
dos en el centro y dos apagados a cada lado. De esta forma las rectas serán de trazos, 
con cuatro pixels encendidos y cuatro apagados. Añada la línea siguiente: 


998 MASK £xX990111109 
run 


Pero vemos que el enlace en los rincones no es como nos gustaría. Lo que ocurre es 
que los pixels de las esquinas se dibujan dos veces: una al final de una recta y otra al 
principio de la siguiente. Una forma un tanto torpe de resolver este problema es incluir 
las líneas: 


115 MOVE 189,22 
125 MOVE 178,189 
133 MOVE 29,178 
RUN 


Pero es más fácil poner “,0” como segundo parámetro de MASK para indicar que no 
se debe dibujar el primer punto de cada línea. Modifique la línea 90: 


99 MASK £x09111199,9 


y borre las que ya no necesitamos: 


115 
125 
135 


Ejecute el programa y observe que el cuadrado vuelve a ser simétrico. Si hubiéramos 
puesto *,1* como segundo parámetro de MASK, todas las rectas serían de trazo conti- 
nuo con el primer pixel encendido. 


Ahora observe los huecos entre trazos. En el triángulo inferior derecho hay algo que 
no está en el otro: es el papel gráfico, al que se ha dado el número 2 con la orden CLG 
2 de la línea 50, pero que es invisible en el triángulo superior porque es del mismo color 
que el fondo. Modifique la línea 50: 


59 CLG 2:GRAPHICS PAPER Y 


y vuelva a ejecutar el programa. El papel ya es visible en todos los bordes del cuadrado. 


Podemos hacer que el papel gráfico sea invisible (“transparente”). Esto significa que 
cuando dibujemos líneas de trazos, los huecos no taparán lo que haya debajo. Los di- 


EFE e [5 5 5 5 5 5 5 5 ta 


9/46 Cuando usted guste ... 


e 5 A 


bujos se hacen transparentes añadiendo “,1' a la orden GRAPHICS PEN. (Para hacer- 
los opacos el parámetro debe ser *,0”). Modifique la línea 70: 


790 GRAPHICS PEN 1,1 
run 


y Observe el resultado. 


Además de dibujar rectas (y puntos sueltos), podemos escribir textos en la posición del 
cursor gráfico. La ventaja con respecto al método normal de escritura de textos es que 
así podemos situar los textos con mayor precisión (justamente en el pixel deseado, en 
vez de a saltos de 8 pixels). 


Para escribir caracteres por este método, el cursor se pone en el lugar en el que quere- 
mos que quede el punto superior izquierdo del carácter, después ejecutamos la orden 
TAG (0 TAG tx para otros canales) seguida de las órdenes PRINT normales. El cursor 
gráfico avanza automáticamente 8 pixels hacia la derecha cada vez que se escribe un 
carácter. Añada las siguientes líneas: 


169 MOVE 64,198 
179 TAG 

189 PRINT "ELENA" 
199 TAGOFF 

- FUN 


(BASIC envía siempre sus mensajes a la ventana de texto, cualquiera que sea la situa- 
ción del conmutador TAG/TAGOFF, pero es una buena costumbre cancelar TAG en 
cuanto se haya terminado de escribir en la pantalla gráfica.) 


Pero ¿qué son las flechas que han salido a la derecha del nombre? Muy sencillo: el códi- 
go de retorno del carro, CHR$(13), y el de avance de línea, CHR$(10), en versión gráfi- 
ca. Las rutinas del firmware que escriben en la pantalla gráfica traducen los 32 prime- 
ros caracteres ASCII a sus versiones gráficas [igual que si se los enviara a la pantalla 
de texto precedidos de CHR$(1)]. La razón es que los 32 códigos de control normal- 
mente sólo tienen utilidad en la pantalla de texto; por lo mismo, si sobrepasamos el 
borde derecho al escribir en la pantalla gráfica, el ordenador lo permite y no salta auto- 
máticamente a la línea siguiente. 


Los signos de retorno del carro y de avance de línea se suprimen poniendo un punto 
y coma al final de la instrucción PRINT: 


189 PRINT "ELENA"; 
run 


El texto enviado a la pantalla gráfica usando TAG depende de las mismas órdenes 
GRAPHICS PEN que los dibujos. Así, en el ejemplo, el nombre lo escribe GRA- 
PHICS PEN 1, y es transparente. La orden 


e 1 5  ———— 
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159 GRAPHICS PEN 1,9 
run 


selecciona papel opaco, mientras que 


159 GRAPHICS PEN 8,1 
RUN 


escribe con pluma número 0 en modo transparente. 


Borre la línea 150 y ejecute el programa. La pluma gráfica vuelve a ser 1 en modo trans- 
parente (línea 70). 


Caracteres transparentes 


Hay un código de control que permite escribir caracteres en la pantalla de texto en mo- 
do transparente. Añada las siguientes líneas: 


20890 PRINTHZ,CHR$(22)3CHR$(1) 
219 LOCATE $2,32,14:PRINTHZ, "XA" 
2298 LOCATE $2,32,14:PRINTHZ,”"______ E 


239 PRINTH2Z, CHR$(22) 5 CHR+$ (9) 
run 


La línea 200 pone el canal 42 en modo transparente. Observe que los signos de subrayar 
se funden con los asteriscos sin borrarlos. De esta manera se pueden formar caracteres 
compuestos, incluso en varios colores. La línea 230 vuelve a poner el canal $2 en modo 
opaco. 


Modos de tinta 


Es posible dibujar gráficos de tal modo que la tinta con la que se dibuja interaccione 
con la ya presente en la pantalla. El número de tinta final para cada punto se calcula 
realizando una operación lógica con la antigua tinta del pixel y la tinta de la pluma grá- 
fica. La operación puede ser AND, OR o XOR. El modo de tinta se puede especifi- 
car como cuarto parámetro en las instrucciones DRAW/DRAWR, PLOT/PLOTR 
o MOVE/MOVER, o bien enviando a la pantalla los códigos de control 
CHR$(23) + CHR$(<modo)»). En cualquier caso, el modo es 1 para XOR, 2 para AND 
y 3 para OR. El valor 0 restaura el modo normal, en el que se dibuja sin interacción. 


En el siguiente ejemplo ilustramos la combinación XOR. Este modo se utiliza habitual- 
mente en los denominados “gráficos de tortuga”, porque tiene la propiedad de que si 
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se dibuja algo dos veces se restaura la situación original. La rutina que dibuja el cua- 
drado se ejecuta dos veces (en las líneas 110 y 130), así como la escritura con TAG (lí- 
neas 170 y 190). Las órdenes FRAME introducen un retardo suficiente como para que 
el efecto sea visible. Nótese que las órdenes de la línea 90 no llevan primer parámetro. 
Esto es correcto tratándose de estas órdenes concretas; lo hemos hecho así para no mo- 
dificar las características correspondientes. 


El tercer parámetro (,1) de la orden MOVE de la línea 220 selecciona la pluma gráfica 
número 1, anulando así la “3” seleccionada en la línea 60. El modo XOR se establece 
en el cuarto parámetro de la orden DRAWR de la línea 230. Obsérvese que también 
aquí hemos omitido un parámetro. 


Podemos observar una consecuencia del efecto del segundo parámetro de MASK su- 
primiendo esta orden de la línea 90. Los rincones del cuadrado desaparecen porque se 
dibujan dos veces (al final de una recta y al principio de la siguiente) con XOR. 


19 REM modos de tinta XOR 

29 MODE 1: INK 2,19: INK 3,4 

39 ORIGIN 449,199,449,649,199,399 
49 WINDOW 1,26,1,253 

59 CLG 2:GRAPHICS PAPER Y 

68 DRAW 299,299,3 

79 MOVE 2,9: FILL 3 

89 ORIGIN 449,9,449,649,9,499 
99 GRAPHICS PEN ,1:MASK ,9 

199 FOR y=69% TO 318 STEP 2 

119 GOSUB 229 

1290 FRAME: FRAME 

136 GUuUSUB 229 

149 NEXT 

159 TAG 

169 FOR y=é62 TO 318 STEP 2 
179 MOVE 96,y:PRINT CHR$(224)5 
1809 FRAME: FRAME 

1989 MOVE 9%6,y:PRINT CHR$(224) 3 
299 NEXT 

219 END 

229 MOVE 99,y,1 

239 DRAWR 29,9,,1 

249 DRAWR 4,29 

259 DRAWR -29,9 

2698 DRAWR Y,-29 

2749 RETURN 

run 
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Animación 


Se puede dar ilusión de movimiento cambiando adecuadamente los colores asignados 
a las tintas. Aunque el contenido de la memoria de la pantalla no se modifica, los dibu- 
jos parecen moverse. Se da un ejemplo de este método en el programa de demostración 
que se suministra con el disco maestro del sistema (RUN“disc*”. Sin embargo, el sim- 
ple cambio de colores de ese ejemplo no es suficiente cuando las formas móviles tienen 
que solaparse. En el siguiente ejemplo recurrimos al modo OR para escribir los núme- 
ros 1 al 4 en la pantalla. (La forma se determina examinando el carácter que está en 
el extremo inferior izquierdo de la pantalla y ampliando lo que allí se encuentra.) Los 
números se escriben sucesivamente con las tintas 1, 2, 4 y 8 y con el modo OR activado 
(en este caso mediante una sucesión de códigos de control, línea 50). 


El bucle que empieza en la línea 160 realiza una rotación de los colores de la paleta 
mediante una fórmula matemática que hace que se ilumine un número cada vez. Las 
tintas se establecen inspeccionándolas sucesivamente y determinando si contienen el 
componente binario que estamos buscando. Por ejemplo, el 3 fue dibujado con tinta 
4; por lo tanto, para visualizar el número 3 debemos dar un color visible a todas las 
tintas cuyo número contenga un 4 binario. Esas tintas son: 


419140), 51191), 618119), 719111), 1201188), 1301181), 1401148), 1501111) 


En una aplicación práctica se calcularía qué tintas se deberían cambiar en cada etapa 
y las líneas 180 a 200 se sustituirían por una rutina más rápida. 


, 


1%9 REM animacion con tintas 

2% ON BREAK GOSUB 229 

39 FOR i=1 TO 15: INK i,26:NEXT 

49 m(1)=1:m(2)=2:m(3)=4:m(4)=8 

59 MODE S:PRINT CHR$(23);CHR$(3)5: TAG 

6%8 FOR p=1 TO 4 

79 GRAPHICS PEN m(p),1 

89 LOCATE $1,1,25:PRINTH1,CHR$(48+p)5 

99 FOR x=9 TO 7 

199 FOR y=9 TO 14 STEP 2 

119 IF TEST(xX4,y)=9 THEN 149 

129 MOVE (x+6)%32, (y+6)X*16:PRINT CHR$(143); 
139 MOVE (x+6)%32, (y+7)*16:PRINT CHR$(143)5 
199 NEXT y,x,p 

158 LOCATE H1,1,25:PRINTH1," *; 

169 FOR p=1 TO 4 

179 FOR i=1 TO 25: FRAME: NEXT 
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129 
199 
299 
219 
229 
run 


Sprites 


FOR i=9 TO 15 
IF (i AND m(p))=%2 THEN INK 1,9 ELSE INK 1i,26 
NEXT i,p 
GOTO 169 
INK 1,26 


En el ejemplo anterior hemos visto cómo se da ilusión de movimiento cambiando los 
colores después de escribir con las tintas 1, 2, 4 y 8. Un efecto muy distinto se consigue 
si se utilizan las mismas tintas pero se manejan los colores de forma diferente. Este 
efecto se conoce con el nombre de “planos de color”; lo ilustramos en el siguiente 


ejemplo. 


19 REM montañas 
298 DEFINT a-s,u-z 


INK 9,1: INK 1,26 
INK 2,6: INK 3,6 


59 FOR i=4 TO 7: INK i,9:NEXT 

é9 FOR i=8 TO 15: INK i,29: NEXT 

79 MODE YS:DEG: ORIGIN 94,159:CLG:MOVE 9,159 
89 FOR x=1é6 TO 649 STEP 1é 

99 DRAÁAW x,COS(x)X*159+RNDX1g0, 4 


NEXT 
MOVE 9,9:FILL 4 

cx=175:GOSUB 329 

cx=525:G0SUB 329 

SYMBOL 252,9,9,8C,L:1F,8:390,87F, FF 

SYMBOL 253,9,6,2%E,8F2,2,£F2,eFE 

SYMBOL 254,9,2:60,870,87F,87F,87F,e7F 

SYMBOL 255,9,9,9,2%F8,LEC,kFE,RFF 
pré=CHR$ (254) +CHR$(255) 
p1$=CHR$ (252) +CHR$ (253) 

TAG: t=TIME 

FOR x=-32 TO 649 STEP 4 

x2=((688-x)%2)MOD 649: h1=RND*19: hr=58XSIN(x) 
GRAPHICS PEN 8,1:MOVE x,198+hr,,3:PRINT pr$; 
GRAPHICS PEN 2,1:MOVE x2,115+h1,,3:PRINT pl$; 
IF (TEST(x2-2,115+h1-12) AND 8)=8 THEN 389 
IF TIME-t<39 ThEN 269 

FRAME: t=TIME 

GRAPHICS PEN 7,1:MOVE x,198+hr,,2:PRINT prs; 
GRAPHICS PEN 13,1:MOVE x2,115+h1,,2:PRINT pl$; 
NEXT 


Cuando usted guste ... 9/51 


O O DO DO DO 


319 GOTO 219 

320 MOVE cx,199 

339 FOR x=9 TO 369 STEP 19 

348 DRAW cx+SIN(x)%50+19%RND, 199+C0S(x)X25+10%RND, 1 
350 NEXT 

369 DRAW cx,198:MOVE cx, P98:FILL 1 

3790 RETURN 

389 ENT -1,1,1,1 

399 SOUND 1,25,499,15,,1,15 

499 FOR y=190+hr TO -132 STEP -2 

419 GRAPHICS PEN 7,1:MOVE x,y,,2:PRINT pr$; 
429 GRAPHICS PEN 8,1:MOVE x,y-2,,3:PRINT prá; 
439 NEXT 

448 GOTO 79 


Para explicar cómo funciona, una vez más tenemos que expresar los números de INK 
en binario. Empezando por el número máximo (el 15), asignamos el color cyan a todas 
las tintas que tienen activo el bit del “8” (de la 15 a la 8). Después damos el color verde 
a todas las que tienen activado el bit del 4” (de la 7 a la 4). Las tintas 2 y 3 tienen a 
1 el bit del 2? y les asignamos el color rojo. Finalmente, asignamos el color blanco a 
la tinta 1 y dejamos la tinta O en azul. 


Los gráficos se envían a la pantalla en modo OR (líneas 230 y 240). El color que se 
ve en la pantalla en cada pixel está determinado por el bit más significativo del resultan- 
te en ese punto. Así pues, una imagen que esté en un plano “más significativo? predomi- 
na sobre otra que esté en un plano “menos significativo”, pero el fondo se conserva y 
vuelve a ser visible si se retira la imagen “más significativa”. La forma de retirar la ima- 
gen consiste en dibujarla en modo AND: las tintas 7, 11, 13 y 14 borran las tintas 8, 
4, 2 y 1, respectivamente (líneas 280 y 290). 


Gráficos con el segundo banco de 64K de RAM 


Para concluir este capítulo ofrecemos un programa “diseñador de pantallas gráficas” 
que utilizan los 64K adicionales de RAM. 


19 *Diseffador de pantallas, por David Radisic 

29 ” copyright (c) AMSOFT 1985 

3g ” 

49 *No olvide ejecutar BANKMAN antes que este programa 
SI IICA A AR 
69 * 

78 ON ERROR GOTO 2749 
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89 DEFINT a-x 
8 MODE 1:ch=127:0rd=1:pn(9)=8:pn(1)=26:pn(2)=15:pn(3)=6: 
pn(4)=8:pn=1:norx=1:menu=1:22z=HIMEM 


199 
119 


129 


130 
149 


1590 
1698 
179 
189 
199 
209 


219 
229 


230 
249 


259 
268 


279 
289 


299 
309 
319 
329 
330 
349 
359 
369 
379 
389 


399 
499 


DIM orden$ (22) 

norx$(9)="Normal"¿norx$(1)="X0R tinorx$(2)="Transp" 
snorx$(3)="X0R a 

RESTORE:;READ ordss$(1), ,ords$(2) :ord$=CHR$ (16) +CHRS (RIF 
)+ords$(1)+o0rds$(2) 

READ ordnum:FOR i=1 TO ordnum:READ orden$(i):NEXT 

READ parar$: 1F parar$<>"%%" THEN ord$(ord)=parar$:ord 

=ord+1:GOTO 149 

WINDOW $9,1,40,1,3: PAPER $9,0: PEN H8,1:CLS HO 

WINDOW $1,1,49,9,9:PAPER H1,3:PEN H1,1:CLS Hi 

ORIGIN 8,9,24,649,8,334 

x=320: y=2989: MOVE x.y 

BORDER pn(94): FOR i=9 TO 3:INK i,pn(i):NEXT 

MASK 255,9:PAFER 9:PEN 1:PAPER H1,3:PEN H1, 1: GRAPHICS 
PEN pn,norx 

IF ind<>S5 THEN 289 

IF pn<2 THEN flechas=CHR$ (249) :px=(pn+1)X13 ELSE IF p 
ní49 THEN flecha$=CHR$ (24941) :px=(pn-1)X13 ELSE +lecha+= 

CHR$ (243) 1 px=37 

LOCATE px,2:PRINT flechas; 

LOCATE 1,1:PRINT USING" PEN g : H$ PEN 1 : HH"jpn 
(80ipn(1);5 

LOCATE 29,2:PRINT USING"Border : HH"5pn(4) 

LOCATE 1,3:PRINT USING" PEN 2: HH PEN 3 : HH"jpn 


(2)3pn(3)5 
LOCATE px,2:PRINT" *”; 
LOCATE H1,1,1:PRINT H1,USING"X :<HHHH-— Y <HHHH- "5xjy5 


¿PRINTH1, "Modo de tinta: "j¡norx*Slnorx+(borrarX2));3" * 


3 
IF ind=% THEN GOSUB 2269 


GOSUB 979 


IF ind>9 THEN 399 

IF i$="" THEN 399 

ord=INSTR(ord$,i$):1F ord=94 THEN 399 

IF ord=1 THEN CLG:x=324:y=209:G0TO 399 

IF ord=2 THEN RUN 79 

ON ord-2 GOSUB 1249,1419,15298,1640, 1849, 1860, 1959, 202 
8,2099,2129,2179,2209, 2669,2669,2660,2669,2379,2339, 2 
290 

IF tx=98 AND ty=9 THEN 299 

IF ind>9 THEN 94499 
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GOSUB 639 

GOSUB 629: FRAME: GOSUB 689 

GOTO 269 

MOVE tempx,tempy,pn, 1 

ON ind GOSUB 479,499,559,649 

GOTO 209 

PLOT x,y:GOSUB 639:PLOT x,y 

RETURN 

DRAW tempx+x,tempy: DRAW tempx+x,tempy+y 
DRAW tempx,tempy+y:DRAW tempx, tempy 
GOSUB 639 

DRAW tempx+x,tempy: DRAW tempx+x,tempy+y 
DRAW tempx,tempy+y:DRAW tempx,tempy 
RETURN 

MOVE tempx,tempy: DRAWR x,y 

IF treslados=9 THEN 589 

DRAW tempxx,tempyy: DRAW tempx,tempy 
GOSUB 639 

MOVE tempx,tempy: DRAW tempx+x,tempy+y 
IF treslados=%8 THEN RETURN 

DRAW tempxx,tempyy: DRAW tempx,tempy 
RETURN 

x=x+tx3y=y+ty! RETURN 

MOVE tempx,tempy:DRAW x,y 

GOSUB 639 

MOVE tempx,tempy: DRAW x,y 

RETURN 

* dibujar y borrar cursor 

1F ind=S THEN RETURN 

MASK 255,1 

IF ind>i THEN xx=tempx+x:yy=tempy+y ELSE XX=ZXIYYy=y 
1F ind=4 THEN XX=xX 1 yy=y 

IF ind=1 THEN xx=x!yy=y 

1F borrar=1 THEN 829 

GOSUB 799 

MASK 255,9 

IF is$=" " THEN GOSUB 2159: i4$="" 
RETURN 

MOVE xx-4,yy,pn, 1: DRAW xx+4, yy 

MOVE xx,yy-94: DRAW xx, yy+4 

MOVE xx,yy, .xorn: RETURN 

nx=1:GOSUB 1229 

FRAME: GOSUB 1229 

IF i$=" * THEN nx=norx:GRAPHICS PEN pn,1:GOSUB 1229 
ig$="" A 

1F ind<>ó6 THEN 7469 
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t 


+ neo o 


IF movido=%9 AND j$<>"" AND (j¡é<CHR$(249) OR j$>CHR$(2 
47)) THEN ch=ASC (j%) ¿movido=1 

IF movido=4 THEN RETURN 

LOCATE 5,2 

FOR i=ch-S TO ch+5 

PEN ABS(i<>ch)+1 


ché$=CHR$ (1) +CHR$(ABS(1+256)MOD 256) 

IF ch=i THEN PRINT" "ch" "; ELSE PRINT ch%; 
NEXT 

PEN 1:PRINT" = "ch" "; 

GOTO 769 

ty=9:tx=9:G0OSUB 699:FRAME:GOSUB 689 


989 IF INKEY(9)<>-1 OR INKEY(72)<>-1 THEN ty=16 

9998 IF INKEY(2)<>-1 OR INKEY(23)<>-1 THEN ty=-16 

1999 IF INKEY(8)<>-1 OR INKEY(74)<>-1 THEN tx=-16 

1919 IF INKEY(1)<>-1 OR INKEY (75)<>-1 THEN tx=16 

1929 IF INKEY(21)<>-1 OR INKEY(76)<>-1 THEN tx=tx/8:ty=ty 
1/8 

19398 IF tx=9 AND ty=9 THEN movido=% ELSE movido=1 

1999 j$=INKEYS: i$=UPPERS(j%) 

1959 1F (i$=" " OR i$=CHR$(13)) AND ind>9 THEN 1999 

1969 IF ind=5 THEN 1129 

1979 IF ind=6 THEN 1179 

1989 RETURN 

1998 ON ind GOSUB 1249,1419,1649, 1869, 1959, 2029 

1199 is$="" 

1119 RETURN 


1129 IF movido=9 THEN RETURN 
1139 IF tx>2 THEN pn=(pn+1) MOD 5 ELSE IF tx<-2 THEN pn=A 


BS( (pn<1))%5-1+pn 


1149 IF ty>2 THEN pnípn)=(pníipn)+1) MOD 27 ELSE IF ty<-2 


THEN pn(pn)=ABS ( (pn(pn)<1))%27-1+pn(pn) 


1159 GRAPHICS PEN pn:PEN H$H1,pn 

1169 tx=9:ty=9: BORDER pniípn):RETURN 

1179 1F tx<9 THEN ch=ABS(ch+255) MOD 256 

1189 IF ty<2 THEN ch=ABS(ch+246) MOD 256 

1199 IF tx>9 THEN ch=(ch+1) MOD 256 

1299 IF ty>9 THEN ch=(ch+19) MOD 256 

1219 tx=9:ty=9: RETURN 

1229 TAG:MOVE xx-8,yy+tó6,pnsnx:PRINT CHR$(ch)5:TAGOFF 
1239 RETURN 


Cc 


1259 IF ind=1 THEN 1299 
1269 ro=1:G0SUB 2249 

1279 tempx=x:tempy=y!:ind=1 
1289 RETURN 
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MMMmXXXKX£%£%£”»%£Ó£ÓQÓ 
1299 IF tempx=x AND tempy=y THEN 1399 


1390 
1319 


1329 
1339 
1349 
1359 
1360 
1370 
1389 
1399 
1490 
1419 
1429 
1439 
1949 
1459 
1460 
1479 
1489 
1499 


1599 
1519 
1529 
1539 
1549 
1559 
1569 
1579 
1589 
1599 
1600 
1619 
1620 


1630 
1640 
1659 
1669 
1679 
1689 
1699 
1799 
1719 


PLOT x,ys2.1 


tix=MAX(x, tempx)-MIN(tempx,x):tiy=MAX (y, tempy)-MIN(t 


empy, y) 
ti=SOR((tix"2)+(tiy"2)) 
ORIGIN tempx,tempy 

PLOT 9,9,pn,9:MOVE 9,-ti 


FOR z=9 TO PIX2+9.91 STEP PI/(ti/2) 
DRAW SIN(Z+PI)Xti,COS(z+PI)Xti,pn,norx 


NEXT z 
ORIGIN 4,9 


x=tempx:y=tempy:tempx=9: tempy=9: ind=9 


RETURN 

"R 

IF ind=2 THEN 1479 
ro=2:G0SUB 2249 
tempx=x:tempy=y!ind=2 
x=90: y=9 

RETURN 

IF norx=1 THEN 1599 


MOVE tempx,tempy: DRAW tempx+x,tempy, ,norx 
DRAW tempx+x,tempy+y:DRAW tempx, tempy+y: DRAW tempx,t 


empy 

x=tempx:y=tempy!ind=9 

RETURN 

"o. (rellenar) 

ro=3:G0SUB 2248 

GOSUB 1629:1F i$=" " THEN 1699 
colorlim=VAL (1%) 

ro=4:GOSUB 22490 

GOSUB 1629:1F i$=" " THEN 1699 
rellenador=VAL (i%$) 


MOVE x,y,colorlim:FILL rellenador 


ind=9:i$="" 

RETURN 

i$=INKEYS: IF (i$<"9" OR i$>"3") 
g 

RETURN 

” T 

IF ind=3 THEN 1799 
ind=3:¿ro0=5:GOSUB 2249 
tempx=x:tempy=y 

x=0: y=9 

RETURN 

IF treslados<>8 THEN 1779 
ro=6:G0SUB 2244 


AND i$x<>" " THEN 


162 


xc_xHS=_— 5 
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17298 MOVE 9,9,pn,1:GOSUB 599 

1739 tempxx=tempx+x:tempyy=tempy+y:x=x/2:y=29 

1749 treslados=1 

1759 GOSUB 559:GOSUB 598 

1769 RETURN 

1779 IF norx=1 THEN 1899 

1789 MOVE tempxx.tempyy, ,norx:DRAW tempx,tempy 

17998 DRAW tempx+x,tempy+y: DRAW tempxx,tempyy 

1899 tempxx=9: tempyy=9 

1819 x=tempx:y=tempy:treslados=9 

1829 tempx=9: tempy=9: ind=9 

1839 RETURN 
. e 

1859 norx=1:borrar=borrar XOR 1:RETURN 

1869 *? Y (linea recta) 

1879 IF ind=4 THEN 1919 

1829 ro=7:G0SUB 2249 

1828 tempx=x:tempy=y!:ind=4 

1998 RETURN 

1219 IF norx=1 THEN 1939 

1929 MOVE tempx,tempy, ,norx:DRAW x,y 

1939 x=tempx:y=tempy!:ind=9 

1948 RETURN 

1958 * 1 

1968 IF ind=S THEN ind=9:CLS: INK 3,coltemp: INK pn,col:GOT 
o 1999 

1979 CLS:ind=5:BORDER pnIpn) 

1989 RETURN 

19998 FOR i=6 TO 3:INK i,onti):NEXT:BORDER pn(4) 

2999 IF pn=4 THEN pn=1 

2919 CLS:RETURN 

2028 " A 

26368 IF ind=6 THEN 29879 

2949 tempx=9: tempy=2:CLS 

29598 borrar=1:ind=é6:norx=1:movido=1 

2068 RETURN 

2879 ind=9 

2889 RETURN 

2898 ” N 

2199 norx=9 

2119 RETURN 

2129 ” B 

2139 GRAPHICS PEN pn,S9:TAG:MOVE xx-8,yy+6, ,9:PRINT" "3:TA 
GOFF 

2149 RETURN 

2159 * <BARRA ESPACIADORA> 
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PLOT x,y,pn,norx:RETURN 

"XxX 

norx=1 

RETURN 

>. Mm 

menu=menu MOD 2+1 

GOSUB 2269: RETURN 

i$=UPPERS(INKEYS$): IF i$="" OR INSTR(gris$,i$)=9 THEN 
2239 ELSE RETURN 

CLS:borrar=8:PRINT ords$íro);:LOCATE 1,3:PRINT"<BARRA 


2 "3:IF ro=3 OR ro=4 THEN PRINT"para terminar" 
RETURN 
CLS:ind=-1 


FOR isi TO LEN(ords$(menu)) 
ps=i+ABS(menu=2)XLEN(ords$(1)) 
PEN 1:PRINT"<"MID$(ords$(menu),i,1)">"MID$5(orden$(ps 


1,2,49" "3 
NEXT 

PRINT"<CLR>  <DEL>  <BARRA>"; 
RETURN 

"6 


GOSUB 24606: IF nombrefichero$="" THEN 2379 
GOSUB 2559 

SAVE nombrefichero$,b,tC9Y8Y, 24909 

GOSUB 2269 

RETURN 

E 

GOSUB 2469: 1F nombreficheros$="" THEN 2449 
GOSUB 2739 

LOAD nombreficheros$, C909 

GOSUB 2579 

GOSUB 2269 

RETURN 

CLS:LOCATE 19,3:PRINT"<RETURN> para abandonar !"; 
LOCATE 1,1:PRINT"Nombre del fichero? "; 

INPUT *"",nombreficheros$: IF nombrefichero$="" THEN RE 
TURN 

n=INSTR(nombreficheros$,"."):1F n=8 THEN 2529 
IF n=1 THEN 2469 
nombreficheros$=LEFTS(nombrefichero$,n-1) 
nombreficheros=LEFT+$(nombrefichero$,8)+".pan" 
CcLsS 

RETURN 

FOR i=9 TO 4:POKE t:C868606+i,pn(i):NEXT 

RETURN 

FOR i=6 TO 4:pn(i)=PEEK(KC9BB+i) MOD 27:NEXT 
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2589 cn=8: FOR i=9 TO 2:1F pn(i)=pn(i+1) THEN cn=cn+1 

2599 NEXT: IF cn=3 THEN 2639 

2699 FOR i=9 TO 3;INK i,pn(i):NEXT 

2619 BORDER pn(4):pn=1:GRAPHICS PEN pn 

2629 RETURN 

2639 pni8)=89:pn(1)=26:pn(2)=15:pn(3)=6:pn(4)=9 

26498 GOTO 2699 

2659 *" 1, 2, 3 y 4 

2669 CLS:PRINT"Quiere <Gduardar":PRINT TAB(8)"<R>ecuperar 
*:PRINT TAB(6)"o <I>intercambiar la pantalla?”; 

2679 gri$="GRI"+CHR+$(13):GOSUB 2239: 1F i$=CHR$(13) THEN 2 
269 

2689 bnk2=(o0rd-13):bnk1i=1 . 

2699 IF i$="G" THEN CLS:GOSUB 2559: ¡SCREENCOPY,bnk2,bnki 

2799 1F i$="R" THEN GOSUB 2739: ¡SCREENCOPY,bnki,bnk2: GOSU 
B 2579 

2719 1F i$="1" THEN CLS:GOSUB 27398:GOSUB 2559: | SCREENSWAP 
,bnk2,bnk1:GOSUB 2579 

2728 GOSUB 2269: RETURN 

2739 FOR i=9 TO 3: INK i,89:NEXT:BORDER 9: RETURN 

2749 CLS:GOSUB 2699: RESUME 2269 

2758 DATA "CR.TOVIANBXM"”, "1234LGM" 

2769 DATA 19,Circunferencia,Recuadro,”".rellenar",Triangul 
o,Alternar,irecta,”"Inks ",ASCI1,Normal, Borrar, "Xor 
*,"Menu nati ia ES a *","Leer "a 
Grabar ,"Menu " 

2779 DATA Circunferencia,Recuadro,Color del limite,Color 
para rellenar, Triangulo 1,Triangulo Z,Linea recta, XX 


Las dos órdenes |¡SCREENCOPY y |¡SCREENSWAP se cargan con el programa 
BANKMAN (cara 1 del juego de discos del sistema). Estas órdenes copian e intercam- 
bian imágenes de pantalla entre los diversos bloques de 16K de memoria y entre los dos 


bancos de 64K. 


Antes de probar el programa “diseñador de pantallas” es necesario ejecutar el “gestor 
de bancos”. Inserte en la unidad la cara 1 del juego de discos del sistema y escriba lo 


siguiente: 
run"bankman" 


A continuación ejecute el programa “diseñador de pantallas”. En el monitor aparecerá 
un menú y un cursor gráfico parpadeante. Pulse la tecla correspondiente a la opción 


elegida. 


Por ejemplo, para dibujar una circunferencia pulse 
c 


A e 5 2 A —<Á 
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y luego la tecla |f| hasta que el cursor pulsátil esté a unos dos o tres centímetros por 
encima del centro de la pantalla. 


Finalmente, pulse la barra espaciadora para ejecutar la función “Circunferencia?, des- 
pués de lo cual el programa vuelve al menú. 


Si se teclea una M (de “M'enú) se obtiene un segundo menú que ofrece las opciones 
de “Guardar y “R'ecuperar pantallas y de manipular el contenido de las pantallas *1”, 
2, *9 y “4” (que están en el segundo banco de 64K de RAM). 


Para utilizar estas funciones, escriba el “número de memoria*(1, 2, 3 o 4); aparacerá 
otro menú, en el cual se puede elegir: 


G para almacenar una pantalla 
R para recuperar una pantalla 
I para intercambiar pantallas 
[RETURN ij para abandonar este menú 


Por ejemplo, para almacenar la pantalla actual en la memoria 2, pulse el *2> seguido 
de la “G”. 


Si se sale de este menú, pulsando “M* puede volver a él. 


El programa “diseñador de pantallas” realiza diversas funciones: rectángulos, circunfe- 
rencias, triángulos, rectas, encendido y apagado de puntos, rellenado de recintos y di- 
bujo de caracteres. 


Cuando se ha terminado el diseño de una pantalla, se la puede grabar en disco para 
su posterior recuperación. 


Con esto termina el último capítulo del manual. Probando y analizando 
los programas que le hemos ofrecido en estas páginas, y experimentando 
con ellos, es de esperar que usted haya llegado a conocer con bastante 
profundidad el BASIC de Amstrad y el propio CPC6128. 


<= 
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Para más información ... 


Hay numerosas publicaciones de Indescomp y de otras editoriales en las 
que puede encontrar más amplia información sobre el CPC6128; en con- 
creto, las especificaciones de BASIC y del firmware y extensa documen- 
tación sobre CP/M y Dr. LOGO. 

Finalmente vamos a ofrecerle cuatro apéndices: el Acuerdo de licencia 
para el usario final de programa CP/M, un glosario de terminología in- 
formática, los listados de unos cuantos programas y un índice 
alfabético. 

Esperamos que haya encontrado este manual instructivo e interesante y 
le agradecemos que haya adquirido el CPC6128. 
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Apéndice 1 
Digital Research y AMSTRAD 


Acuerdo de licencia para el usuario final 
del programa 


ADVERTENCIA AL USUARIO: POR FAVOR, LEA ATENTAMENTE ESTA 
NOTA. NO ABRA LAS CAJAS DE LOS DISCOS MIENTRAS NO HAYA 
LEIDO ESTE CONTRATO. 


POR EL HECHO DE ABRIR LA CAJA USTED RECONOCE QUE ACEPTA 
LAS CLAUSULAS Y CONDICIONES SIGUIENTES. 


1. Definiciones 


En este contrato: 

1. “DRI' significa DIGITAL RESEARCH (CALIFORNIA) INC., P. O. Box 579, Pa- 
cific Grove, California 93950, EE.UU., propietario de los derechos de reproducción 
o licenciatario autorizado del programa. 


2. “Máquina” significa un único microordenador en que se utiliza el programa. Para 
los ordenadores con microprocesadores múltiples se requieren licencias adicionales. 


3. “Programa” es el conjunto de programas, documentación y anejos incluidos en esta 
aplicación, así como las actualizaciones y modificaciones que DRI pueda suminis- 
trarle, cualquiera que sea la forma en que usted los utilice, con o sin sus propias 
modificaciones. 

4. *AMSTRAD' significa AMSTRAD CONSUMER ELECTRONICS PLC., Brent- 
wood House, 169 Kings Road, Brentwood, Essex CM14 4EF, Reino Unido. 


Usted asume toda la responsabilidad derivada de la selección del programa y de su 
instalación, utilización y resultados. 


Digital Research y AMSTRAD Al/l 


2. Licencia 


Usted puede: 


1. 
2. 


Utilizar el programa en una sola máquina. 


Copiar el programa en forma electrónica o impresa, bien sea como medida de segu- 
ridad o para modificarlo, siempre condicionado a su utilización en una sola máqui- 
na. Para estos propósitos puede hacer 3 (tres) copias como máximo. (No obstante, 
algunos programas pueden estar dotados de mecanismos que limiten las posibilida- 
des de copia o la impidan; son los marcados con “copy protected”). Está prohibido 
copiar la documentación y los demás impresos. También está prohibido desensam- 
blar el código de máquina. 


. Modificar el programa o mezclarlo con otro para utilizar el programa resultante en 


una sola máquina. (Toda porción de este programa que se mezcle con otro seguirá 
estando sujeta a las cláusulas de este contrato.) 


. Transferir el programa y la licencia a otro usuario a condición de que comunique 


a DRI el nombre y las señas de ese otro usuario, y de que éste acepte (a) las condicio- 
nes establecidas en este contrato, (b) fimar y enviar a DRI una copia de la tarjeta 
de registro y (c) pagar los derechos de transferencia vigentes en el momento. Si usted 
transfiere el programa, debe al mismo tiempo: o bien transferir todas las copias, in- 
cluido el original, tanto en versión electrónica como impresa, al mismo usuario, o 
bien destruir todas las copias no transferidas; esto es de aplicación también a todas 
las modificaciones y a todas las porciones del programa que haya mezclado con 
otros programas. 


Usted está obligado a incluir el mensaje de copyright en todas las copias, modificacio- 
nes y porciones mezcladas con otros programas. 


CADA DISCO TIENE GRABADO UN NUMERO DE SERIE. USTED NO PUF- 
DE UTILIZAR, COPIAR, MODIFICAR, TRANSFERIR NI DE NINGUNA 
OTRA FORMA PERMITIR QUE OTRA PERSONA LLEGUE A ESTAR EN 


POSESION DE ESTE PROGRAMA, NI DE NINGUNA COPIA, MODIFICA- 
CION O PORCION MEZCLADA CON OTRO PROGRAMA, SALVO EN LAS 
CONDICIONES PREVISTAS EN ESTE CONTRATO. 


3. Vigencia del contrato 


Esta licencia estará en vigor mientras no sea cancelada. Usted puede cancelarla en cual- 
quier momento destruyendo el programa junto con sus copias, modificaciones y por- 
ciones mezcladas con otros programas. También quedará cancelada en las condiciones 
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mencionadas en otro lugar de este contrato, o por el hecho de que usted no cumpla 
alguna de las cláusulas del contrato. Al aceptar este acuerdo, usted se compromete a 
destruir todas las copias, modificaciones y porciones mezcladas con otros programas 
en cuanto la licencia quede cancelada. 


4. Garantía limitada 


EL PROGRAMA SE SUMINISTRA “TAL CUAL”. NI DRI NI AMSTRAD 
OFRECEN GARANTIA ALGUNA, NI EXPRESA NI IMPLICITA, INCLU- 
YENDO LAS GARANTIAS IMPLICITAS DE COMERCIABILIDAD Y ADE- 
CUACION A UN PROPOSITO CONCRETO, AUNQUE SIN LIMITARSE A 


ESTAS. USTED ASUME TODOS LOS RIESGOS EN CUANTO A LA CALI- 
DAD Y BUEN FUNCIONAMIENTO DEL PROGRAMA. SI ESTE FUERA DE- 
FECTUOSO, USTED (Y DRI Y AMSTRAD) ASUME EL COSTO TOTAL DE 
LA REPARACION O CORRECCION NECESARIAS. 


Ni AMSTRAD ni DRI garantizan que las funciones del programa vayan a satisfacer 
sus necesidades, ni que el funcionamiento del programa sea ininterrumpido y libre de 


error. 
No obstante, AMSTRAD garantiza que el disco soporte del programa está libre de de- 
fectos, si se le da un trato normal, por.un periodo de 90 días contados a partir de la 
fecha de la compra, la cual se acreditará mediante la factura. 


5. Limitación de la responsabilidad 


La responsabilidad de AMSTRAD se limita a su compromiso de sustituir el disco de- 
fectuoso, que habrá de ser enviado a AMSOFT junto con un copia de la factura. 


DRI Y AMSTRAD NO SERAN EN NINGUN CASO RESPONSABLES DE NIN- 
GUN DAÑO, INCLUIDAS PERDIDAS DE BENEFICIOS, PERDIDAS DE 
AHORROS Y CUALESQUIERA OTROS PERJUICIOS DIRECTOS O INDI- 


RECTOS, AUN CUANDO DRI O AMSTRAD HAYAN SIDO AVISADOS DE 
LA POSIBILIDAD DE TALES DAÑOS, NI DE NINGUNA RECLAMACION 
DE TERCEROS. 


Digital Research y AMSTRAD A1/3 


6. Tarjeta de registro 


DRI actualiza de vez en cuando sus programas. DRI sólo enviará tales actualizaciones 
si ha recibido de usted la tarjeta de registro firmada, o si la ha recibido un receptor 
autorizado por DRI. DRI no está obligada a actualizar el programa ni a enviarle a us- 
ted las actualizaciones. 


7. Condiciones generales 


Usted no puede ceder, asignar o transferir ni la licencia ni el programa a otras personas, 
salvo en la forma expresamente autorizada en este contrato. Todo intento de ceder, 
asignar o transferir los derechos y obligaciones descritos en este contrato será nulo. 


Este acuerdo será regido e interpretado de acuerdo con las leyes británicas. 


Si tiene usted alguna pregunta que hacer en relacion con este contrato, puede escribir 
a Digital Research Inc., P. O. Box 579, Pacific Grove, California 93950, EE. UU. 


ESTE CONTRATO NO PUEDE SER MODIFICADO POR PROPUESTAS DE 
PEDIDO, POR ANUNCIOS PUBLICITARIOS NI DE NINGUNA OTRA FOR- 
MA. SOLAMENTE PUEDE SER MODIFICADO MEDIANTE CONTRATO 
SUSCRITO ENTRE USTED Y UN APODERADO DE DRI Y OTRO DE 
AMSTRAD. 


USTED RECONOCE QUE HA LEIDO ESTE CONTRATO, QUE LO ENTIEN- 


DE Y QUE ESTA DE ACUERDO CON LAS CONDICIONES EN EL EXPUES- 
TAS. USTED ACEPTA ADEMAS QUE ESTE CONTRATO ES EL UNICO ES- 
TABLECIDO ENTRE USTED, DRI Y AMSTRAD, Y QUE ANULA CUAL- 
QUIER OTRA PROPUESTA O CONTRATO ANTERIOR, VERBAL O ESCRI- 
TO, Y CUALESQUIERA OTRAS COMUNICACIONES ENTRE USTED Y DRI 
O AMSTRAD EN RELACION CON ESTE ASUNTO. 


HA 5 5 5 a, 
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Apéndice 2 
Léxico inglés-castellano y glosario 


Algunos términos que se utilizan frecuentemente en infor- 
mática, explicados para los usuarios del CPC6128. 


Accumulator Acumulador 


Una parte del microprocesador, en el corazón del ordenador, en el que se almacenan 
temporalmente los datos mientras se los está procesando. Se lo utiliza en la programa- 
ción en código de máquina. Los usuarios de BASIC ni siquiera necesitan saber que 


existe. 


Acoustic coupler Acoplador acústico 


También denominado “modem acústico”. Dispositivo electrónico mediante el cual se 
puede conectar el ordenador a la red telefónica. De esta forma el ordenador se puede 
integrar en una red de comunicación pública, o bien comunicarse con otros usuarios 
de ordenadores domésticos para el intercambio de información o programas. 


Address Dirección 
Número que identifica la posición de una célula de la memoria del ordenador. Median- 
te la dirección se selecciona una célula concreta para leer su contenido o, en el caso 
de la memoria RAM, para leer o escribir un valor en ella. 

Adventure game Juego de aventura 
Una pasión para algunos, un aburrimiento para otros. Un juego de ordenador en el 
que se invita al jugador a participar en una serie de sucesos pseudoaleatorios con el ob- 
jetivo de salir de un laberinto. 

Algorithm Algoritmo 


Nombre grandilocuente que se da a una fórmula o a una suma complicada. Secuencia 
de operaciones lógicas y aritméticas con las que se realiza una determinada tarea 
informática. 
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Alphanumeric Alfanumérico 


Adjetivo que describe la diferencia entre una letra o un dígito y un carácter gráfico. 


ALU (Arithmetic and Logic Unit) Unidad aritmética y lógica 


Parte del microprocesador que realiza las operaciones lógicas y aritméticas. De interés 
solamente para la programación en código de máquina. 


Ambiguous File Name Nombre de fichero ambiguo 


Un nombre de fichero que contiene uno o varios símbolos comodín. Los nombres de 
fichero ambiguos pueden representar al mismo tiempo varios ficheros cuyos nombres 
tienen algo en común. 


AMSDOS 


AMsStrad Disc Operating System. Sistema operativo de disco AMSTRAD. Es el pro- 
grama que permite que el BASIC de Locomotive acceda a los ficheros de disco. 


AMSOFT 


División de AMSTRAD especializada en el apoyo a los usuarios de los ordenadores; 
suministra programas, periféricos y publicaciones, específicamente con objeto de po- 
tenciar el CPC6128 y sus muchas aplicaciones. 


D Analog Analógico 


Adjetivo que caracteriza los fenómenos en los que las transiciones entre el estado inicial 
y el final se realizan de forma gradual o continua. Los ordenadores son dispositivos 
digitales, mientras que los fenómenos naturales son en su mayoría analógicos; así pues, 
el ordenador tiene que realizar una conversión A/D antes de poder procesar los datos 
recibidos de una fuente analógica. 


Animation Animación 


Los dibujos animados son el mejor ejemplo. La animación en los ordenadores consiste 
en mover gráficos por la pantalla, tratando de simular los movimientos de los seres 
reales. 
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Applications program Programa de aplicaciones 


Programa escrito para realizar una tarea específica, a diferencia de los programas de 
“utilidad”, tales como ensambladores, controladores de impresora, etc., que son de in- 
terés más general. 


Arcade game Juego gráfico de salón 


Juego de ordenador basado en el movimiento de gráficos (invasores espaciales, mons- 
truos al acecho en un laberinto, etc.). El usuario tiene que evitar la “muerte” de los “bue- 
nos”. Generalmente sirven para ejercitar los reflejos, pero no tienen ningún valor didác- 
tico para los estudiantes de informática. 


Architecture Arquitectura 


Término que designa la organización general de un ordenador (relaciones entre el bus 
de datos, la UCP y los periféricos). 


Argument Argumento 


Una variable independiente. Por ejemplo, en SIN(x) la x es el argumento de la función 
SIN. 


Array Matriz 


Combinación de elementos de un mismo tipo dispuestos en una o varias dimensiones. 
En el caso monodimensional se denominan “vectores”. 


Artificial intelligence (AD Inteligencia artificial 


Técnica de programación que permite al programa aprender por la experiencia. 


ASCII 


American Standard Code for Information Interchange. Código estadounidense están- 
dar para el intercambio de información. Forma habitual de representar digitos, letras 
y otros símbolos mediante códigos numéricos. 
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Assembler Ensamblador 


Programa que facilita la programación en código de máquina. Las instrucciones son 
los llamados “nemónicos”: grupos de letras que se recuerdan e interpretan fácilmente 
porque dan una idea de la función que realiza cada instrucción. 


Backup Copia de seguridad 


Copia que se hace de los programas o ficheros de datos en previsión de que se borre 
o deteriore accidentalmente el original. 


Bar code Código de barras 


Código impreso legible por ordenador mediante técnicas ópticas tales como láser de ba- 
* ja potencia. (Ejemplo: el grupo de rayas verticales que se imprime en la cubierta de al- 
gunas revistas.) 


Base Base 


Es el número de dígitos que se utilizan en cada sistema de representación numérica. 
En el sistema decimal es 10; en el binario, 2; en el hexadecimal, 16. 


BASIC 


Beginners” All-purpose Symbolic Instruction Code. Código de instrucciones simbólicas 
de uso general para principiantes. Es un lenguaje de programación interpretado que 
se incorpora en la mayor parte de los ordenadores domésticos. BASIC fue diseñado 
primordialmente como ayuda para la enseñanza, pues permite la comprobación de los 
programas en cualquier momento de su desarrollo. En esto se distingue de los progra- 
mas compilados, que no pueden ser probados parcialmente mientras el programa no 
esté completo. 


Baud Baudio 


Unidad de medida de la velocidad de transmisión de datos. En un concepto distinto 
del de bit por segundo, aunque en muchos casos sus valores coincidan. 


BCD (Binary Coded Decimal) Decimal codificado en binario 


Sistema de codificación para números decimales en el que cada dígito se representa por 
un grupo de cuatro bits. 
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BDOS 

Basic Disc Operating System. Sistema operativo básico de disco. Parte del sistema ope- 
rativo CP/M que proporciona un interfaz para que el programa del usuario pueda utili- 
zar las funciones de CP/M. 

Benchmark Prueba patrón 
Una tarea estándar que se realiza con distintos ordenadores para comparar su veloci- 
dad, precisión, etc. Por ejemplo, elevar al cuadrado el número 99999 y luego calcular 
la raíz cuadrada. 

Binary Binario 
Sistema de numeración de base 2, en el que los números se representan como combina- 
ciones de solamente dos dígitos: el O y el 1. (Véase la parte 1 del capítulo “Cuando usted 
guste ...”.) 

Binary number Número binario 
Un número representado en el sistema binario. En el BASIC del CPC6128 se los identi- 
fica por el prefijo €X; por ejemplo, £X0101=5S(decimal). 

BIOS 

Basic Input/Output System. Sistema básico de entrada/salida. Es la parte de CP/M 
que se escribe especificamente para cada ordenador concreto. Gestiona todas las entra- 
das y salidas: pantalla, teclado, disco, etc. 

Bit 

Forma abreviada de BInary digiT (dígito binario). Un dígito binario es uno de los dos 
símbolos (el 0 y el 1) con los que se representan los números en el sistema de base 2. 
Bit significant Interpretable bit a bit 
Hace referencia a los casos en los que se puede extraer información de un número exa- 


minando el estado de cada uno de sus bits. El valor global en decimal no tiene significa- 
do evidente. 
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Boolean algebra - Algebra de Boole 
Estructura algebraica sobre variables que pueden tomar dos valores distintos: verdade- 
ro/falso, 1/0, etc. 

Boot Carga inicial 
Proceso de carga de un sistema operativo en la memoria del ordenador. Cuando se car- 
ga CP/M desde BASIC, lo primero que se lee es un pequeño programa autocargador, 
el cual realiza la carga del sistema operativo propiamente dicho. 

Booting, Bootstrapping Autocarga 
Los programas y sistemas operativos no se cargan a sí mismos, sino gracias a una rutina 
(generalmente grabada en ROM) que inicia el proceso de carga a partir de una determi- 
nada posición de memoria. 


Buffer Tampón 


Area de memoria reservada para el almacenamiento temporal en los procesos de trans- 
ferencia de la información. 

Bug Error de programación 
Un problema no previsto en un programa: puede ir desde una “característica inespera- 
da” (por ejemplo, si se pulsan cuatro teclas a un tiempo la pantalla cambia de color) 
hasta una secuencia de instrucciones que provoca la pérdida del control de la máquina. 


Built-in commands Órdenes internas o incorporadas 


Órdenes que forman parte del sistema operativo. Son de ejecución más rápida que las 
órdenes externas, pues no tienen que ser cargadas del disco. 


Bus 


Grupo de conexiones, internas al ordenador o de entrada/salida, por las que se trans- 
mite información acerca del estado de la UCP, de la RAM o de cualquier otra parte 
del hardware. EL bus del CPC6128 es accesible a través del zócalo EXPANSION que 
está en la cara posterior del ordenador. 
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Byte Byte, octeto 


Grupo de 8 bits. Es la menor porción de información que una UCP puede intercambiar 
con la memoria. 


CAD, Computer Aided Design Diseño asistido por ordenador 


Generalmente, un programa interactivo que convierte el ordenador en un tablero de 
dibujo electrónico que además es capaz de realizar cálculos matemáticos. 


CAE, Computer Aided Education Enseñanza asistida por ordenador 


Programa que facilita la enseñanza en general sirviéndose de los ordenadores. 


Cartridge Cartucho 
Dispositivo de memoria externo compacto conectable al ordenador (v. g., programas 
en ROM, cuya ventaja es la gran velocidad de carga, pero que son más caros que los 
suministrados en disco). 


Cassette 


Cinta encapsulada, ya sea virgen o con programas comerciales. 


CccP Intérprete de consola 


Console Command processor. Procesador de órdenes de consola. Es el módulo de 
CP/M que interpreta y ejecuta las entradas por el teclado. 


Character Carácter 


Cualquier símbolo que pueda ser manejado y visualizado por el ordenador: dígitos, le- 
tras y otros signos, incluidos los símbolos gráficos. 


Character set Juego de caracteres 
Conjunto de todos los signos y símbolos disponibles en un ordenador o una impresora. 


El hecho de que un ordenador tenga un simbolo determinado no implica que éste sea 
reproducible en la impresora. 
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Character string Cadena literal 


Grupo de caracteres que pueden ser almacenados y tratados en bloque, v. g. una pala- 
bra o grupo de palabras. 


Chip Pastilla 
Término popular, aunque incorrectamente utilizado, para designar un circuito integra- 


do monolítico. La “pastilla? es en realidad un trozo de silicio en el que se graba el 
circuito. 


Clock Reloj 


Sistema temporizador de referencia del ordenador que controla y sincroniza la secuen- 
cia de operaciones. Un reloj de tiempo real es el que mantiene la hora, fecha, etc. 


Code Código 


Aparte de otros significados, forma abreviada de referirse al “código de máquina”. 


Cold start Arranque en frío 


Proceso de carga e inicialización de un sistema operativo. El arranque en frío de CP/M 
se realiza cuando se ejecuta la orden ¡CPM de AMSDOS. 


Command Orden 


Instrucción de programa o instrucción directa de teclado. 


Compiler Compilador 
Un programa complejo que convierte programas completos escritos en un lenguaje de 
alto nivel, tal como BASIC, en códigos directamente utilizables por el microprocesa- 
dor, con el consiguiente incremento de la velocidad de ejecución. 

Computer generations Generaciones de ordenadores 
Diversos hitos tecnológicos han delimitado las etapas de la evolución de la tecnología 


informática; los ordenadores fabricados con un nivel de sofisticación similar forman 
una “generación”. 
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Console mode Modo de consola 
Modo directo de CP/M; en la pantalla aparece el mensaje inductor A) para indicar 
que el sistema está esperando que se teclee una orden interna o el nombre de un progra- 
ma de ayuda. 


Corruption Corrupción 


Destrucción o alteración del contenido de un fichero o de la memoria, indeseada y posi- 
blemente irremediable. 


CP/M 


Control Program for Microcomputers. Programa de control para microordenadores. 
Sistema operativo basado en disco, desarrollado por Digital Research, que proporciona 
un interfaz con el que utilizar una gran variedad de programas. 


CPU, Central Processing Unit Unidad central de proceso 


Núcleo del sistema informático que interpreta las instrucciones y hace que sean obede- 
cidas. En los microordenadores la UCP es el propio microprocesador. 


Cursor 


Símbolo móvil que indica en qué lugar de la pantalla aparecerá el próximo carácter que 
se envíe a ella. 


Cursor control keys Teclas de movimiento del cursor 


Teclas con las que se hace que el cursor se mueva por la pantalla. Frecuentemente se 
las utiliza también en los juegos gráficos. 


Daisy-wheel printer Impresora de margarita 


Impresora que escribe con calidad de máquina de escribir. Los caracteres están prefor- 
mados, cada uno en un brazo de la “margarita”, y se los transfiere al papel al golpear 
el brazo con un martillo. 
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Database Base de datos 


Colección de datos estructurados, integrados y coherentes, utilizables por el 
ordenador. 


Data capture Captación de datos 


Recolección de datos enviados al ordenador desde fuentes externas. 


Debugging Depuración 


Proceso de detección y eliminación de errores de los programas. 


Decimal notation Notación decimal 


Sistema decimal de numeración, de base 10, que utiliza los dígitos del O al 9. Es el siste- 
ma ordinario. 


Default Prescrito, implícito, por defecto 


Valor que el ordenador supone en ausencia de otra especificación por parte del usuario. 
Por ejemplo, en CP/M la unidad de disco implícita es la A:. 


Delimiter 


Véase Separator. 


Diagnostic Diagnóstico 


Mensaje emitido automáticamente por el ordenador para señalar e identificar un error 
de un programa. 


Digital 


Es el término opuesto a “analógico”. Describe la transición brusca entre dos estados de 
un proceso. 
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Digitizer Digitalizador 


Método de conversión de información analógica en digital. 


Directory Directorio 


Sección de un disco que contiene las reseñas (títulos y características) de los ficheros 
grabados en él. Lista del contenido de un disco. 


Disc, disk Disco 


Hoja de plástico circular, fina y plana, recubierta de material magnético, que se utiliza 
como medio de almacenamiento de la información. El disco está incluido en una envol- 
tura protectora en la que hay una “ventana” para la cabeza lectora. En el disco de 3 
pulgadas la ventana está cubierta por un obturador metálico que se abre automática- 
mente cuando se introduce el disco en la unidad. 


Disc drive Unidad de disco 


Mecanismo y circuitos electrónicos con los que se mueve el disco para leer o grabar da- 
tos en él. 


Documentation Documentación 


Manuales suministrados con los ordenadores o los programas, en los que se explica su 
funcionamiento. 


DOS (Disc Operating System) Sistema operativo basado en disco 


Programas que controlan todas las operaciones de la unidad de disco. 


Dot matrix Matriz de puntos 


Retícula rectangular de puntos con la que se puede visualizar cada carácter seleccionan- 
do los puntos adecuados. 
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Double sided De doble cara 


Hace referencia a los discos en los que se puede almacenar información en ambas caras. 
Una unidad de doble cara puede acceder a ambas caras del disco sin necesidad de ex- 
traer y darle la vuelta a éste. 


Dr. LOGO 

Versión de LOGO elaborada por Digital Research. LOGO es un lenguaje de programa- 
ción caracterizado por sus “gráficos de tortuga”. 

Dumb terminal Terminal pasivo 
Terminal de ordenador que actúa solamente como medio de entrada o salida, pero sin 
procesar la información. 

Edit Editar, corregir 


Corregir o modificar datos, programas o textos. 


Editor 


Un programa, generalmente grabado en la ROM del ordenador, que permite realizar 
el proceso de edición. 


EPROM 


Erasable Programmable Read only Memory. Memoria borrable y programable de “sólo 
lectura”. Similar a la PROM, pero tal que su contenido se puede borrar con luz ultra- 


violeta para luego grabar en ella un nuevo programa. Una EEPROM puede ser borrada 


por medios electrónicos. 


Expression Expresión 


Fórmula utilizada en un programa para realizar cierta operación con los datos. La pro- 
pia expresión indica normalmente la naturaleza de los datos que puede manejar. En 
Dr. LOGO una expresión consiste en el nombre de un procedimiento seguido de las 
entradas requeridas. 
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Fifth generation computers Ordenadores de la quinta generación 
Grandes ordenadores que estarán disponibles en el futuro y tendrán, como característi- 
ca distintiva, la capacidad de utilizar ampliamente las técnicas de la inteligencia 
artificial. 

File Fichero 


Colección de datos, de estructura homogénea, generalmente grabada en cinta o disco. 


File name Nombre de fichero 
En Dr. LOGO el nombre de un fichero puede estar formado por un máximo de 8 carac- 


teres alfanuméricos. En CP/M se permiten otros tres caracteres, precedidos por un 
punto. 


Firmware 


Software contenido en ROM: un híbrido de software y hardware. 


Fixed-point number Número en coma fija 


Un número que se representa, manipula y almacena con la coma decimal en una posi- 
ción determinada. 


Floating-point number Número en coma flotante 


Número que se representa, manipula y almacena con la coma decimal en la posición 
más conveniente (en forma de mantisa y exponente). 


Floppy disc 


Véase Disc. 


Flowchart Ordinograma 


Representación esquemática de la evolución de las acciones de un programa. 


$ 
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Forth 

Lenguaje de programación de alta velocidad de ejecución. Tanto la velocidad como la 
complejidad están a medio camino entre los lenguajes de alto nivel y el código de má- 
quina. No es un lenguaje para principiantes. 

Function key Tecla de función 


Tecla que tiene asignada una tarea específica, que puede ejecutar en lugar (o además) 
de la función grabada sobre ella. 


Gate Puerta lógica 
Las puertas lógicas permiten el paso de datos cuando se cumplen ciertas condiciones. 
Hay muchos tipos de puertas lógicas: OR, AND, XOR, etc. 

Graphics Gráficos 
Dibujo de puntos, rectas, circunferencias, etc.; es decir, todo lo que aparece en la pan- 
talla que no sean “caracteres”. 

Graphics character Carácter gráfico 


Símbolo asignado a un carácter que es en sí mismo un dibujo. 


Graphics cursor Cursor gráfico 
Concepto similar al de “cursor de texto”, pero invisible (en el 6128) y referido a la panta- 
lla gráfica. 

Graphics mode Modo gráfico 
Los ordenadores más antiguos tenían que ser puestos explícitamente en este modo para 
poder manejar gráficos. En cambio, los ordenadores personales modernos pueden 
mezclar textos con gráficos. 


Graphics tablet Tablero gráfico 


Periférico que convierte un dibujo en una forma manipulable por el ordenador. Es una 
forma de conversión A/D (analógica a digital). 
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Handshaking Intercambio de indicativos y señales de control 
Secuencia de señales electrónicas que inicia, comprueba y sincroniza el intercambio de 
datos entre un ordendor y un periférico o entre dos ordenadores. 

Hard copy Copia en papel 
Listado por impresora de un programa o un texto, O volcado en papel de la pantalla 
gráfica. 

Hardware Equipos, máquinas 


Componentes electrónicos o mecánicos de un sistema informático: todo lo que tiene 
volumen y peso. 


Hexadecimal (HEX) 

Sistema numérico de base 16. Los números hexadecimales se identifican en el CPC6128 
por los prefijos € y £H. Por ejemplo, £FF=255 (decimal). (Véase la parte 1 del capítu- 
lo “Cuando usted guste ...?.) 


Hex file Fichero HEX 


Representación ASCII de un fichero de orden externo o de código de máquina. 


High-level language Lenguaje de alto nivel 


Lenguajes del tipo de BASIC, en los que las instrucciones son más próximas al lenguaje 
ordinario. Son más lentos que el código de máquina, pero mucho más sencillos de en- 
tender y programar. 


TEEE-488 


Uno de los interfaces estándar para la conexión de dispositivos externos a un ordena- 
dor. Similar al Centronics, pero no totalmente compatible con él. 


Information technology Tecnología de la información 


Todo lo relativo a la utilización de los ordenadores en el proceso de la información y 
las comunicaciones: proceso de textos, transmisión de datos, videotexto, teletexto, etc. 
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Initialise Inicializar 


Poner en marcha un sistema. O dar valores concretos a variables antes de empezar la 
ejecución del núcleo central de un programa; por ejemplo, dimensionar matrices, de- 
clarar tipos de variables, etc. 


Input Entrada 
Datos de todo tipo que entran en el ordenador procedentes del disco, del teclado, de 
una puerta RS-232, etc. 

Instruction Instrucción 
Orden que manda al ordenador que realice alguna operación o tarea. Un conjunto de 
instrucciones forma un programa. 


Instruction set Juego de instrucciones 


Conjunto de procesos lógicos y matemáticos fundamentales que puede realizar el mi- 
croprocesador. Toda instrucción de un lenguaje de alto nivel (y también los nemónicos 
de ensamblador) tiene que ser convertible a una instrucción o serie de instrucciones que 
la UCP pueda reconocer. 


Integer Entero 


Número sin parte decimal. 


Integrated circuit Circuito integrado 


Conjunto de componentes electrónicos miniaturizados, grabados en una pastilla de sili- 
cio. (Véase también Chip.) 


Intelligent terminal Terminal inteligente 


Un terminal que, además de gestionar entradas y salidas para un ordendor central, pue- 
de realizar ciertas tareas de proceso de datos cuando el ordenador está “fuera de línea”. 
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Interactive Interactivo 
Hace referencia a los programas que solicitan del usuario la introducción de informa- 
ción de modo inmediato: desde el control de naves espaciales en juegos gráficos hasta 
las respuestas en programas educativos. La acción del usuario tiene efecto en “tiempo 
real” sobre la evolución del programa. 

Interface Interfaz 
Vía de entrada y salida del ordenador, tanto para las señales eléctricas como para las 
acciones y reacciones del usuario. En el CPC6128, el teclado, la pantalla y las conexio- 
nes para periféricos. 

Interpreter Intérprete 
Una analogía más entre las instrucciones de ordenador y los idiomas. Es el elemento 


del sistema que interpreta el lenguaje de alto nivel y lo convierte a una forma utilizable 
por UCP de modo inmediato. 


1/0 Entrada/Salida (E/S) 


Input/output. Entrada/Salida. 


Iteration Iteración 
Uno de los mecanismos básicos de la informática. Consiste en la repetición de tareas 
(bucles), en las que generalmente se va modificando el valor de una variable, hasta que 
se cumple determinada condición. 


Joystick Bastoncillo de mando 


Dispositivo de entrada al ordenador que generalmente sustituye las teclas del cursor y 
hace que los juegos gráficos sean más fáciles y rápidos de controlar. 


K 


Forma abreviada y aproximada del prefijo “kilo” (1000). Representa un “kilobyte”, que 
en realidad es 1024 bytes. (1024 es la base del sistema binario, 2, elevada a la décima 
potencia.) 
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Keyboard Teclado 

Matriz de interruptores alfanuméricos a través de la cual se introduce información en 

el ordenador. 

Keyword Palabra clave 

Palabra que un programa o lenguaje de programación reserva para una función u or- 

den específica. 

Least significant bit Bit menos significativo 

En un número binario, el bit de menor peso; es decir, el que está más a la derecha en 

la representación matemática habitual. 

Light pen Lápiz óptico 


Otro dispositivo de entrada al ordenador que sirve para indicar una selección de zonas 
de la pantalla o para leer códigos de barras. 


Line number Número de línea 


Los programas de BASIC y de algunos otros lenguajes tienen las instrucciones numera- 
das para indicar al ordenador el orden de ejecución. 


LISP 


Acrónimo de “LISt Processor language” (lenguaje de proceso de cadenas de predica- 
dos). Otro lenguaje de alto nivel. 


Logic Lógica 


Entre otras acepciones, conjunto de componentes electrónicos que realizan las opera- 
ciones lógicas elementales en las que en último término se basa el funcionamiento del 
ordenador. 


Logical device Dispositivo lógico 
La representación de un dispositivo puede no coincidir con su forma física. Por ejem- 
plo, el dispositivo lógico LST de CP/M puede ser asignado a la puerta Centronics, pero 


también a la pantalla del monitor. 
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LOGO 

Nombre de un lenguaje de programación tomado del término griego “logos”, que signi- 
fica “palabra”. LOGO ha sido diseñado para servir como ayuda en la enseñanza de la 
informática elemental. 

Loop Bucle 
Sección de un programa que se ejecuta reiteradamente hasta que se cumple determina- 
da condición. 

Low-level languaje Lenguaje de bajo nivel 
Por ejemplo, el lenguaje ensamblador. Un lenguaje en el que cada instrucción corres- 
ponde a una instrucción de código de máquina. 

LSB, Least Significant Bit Bit menos significativo, bms 
En un número binario, el bit de menor peso, es decir, el que está más a la derecha en 
la representación matemática habitual. 

LSI, Large Scale Integration Integración a gran escala 


Etapa avanzada del desarrollo de circuitos integrados, en la que incorporan miles de 
componentes electrónicos en una sola pastilla de silicio. 


Machine code Código de máquina 


Lenguaje de programación que es directamente comprensible y utilizable por el 
microprocesador. 


Machine readable Accesible a la máquina 


Este término hace referencia a datos e información que puedan ser introducidos direc- 
tamente en la máquina, sin necesidad de conversión. 


Man-machine interface Interfaz hombre-máquina 
Dispositivo que facilita la interacción entre el usuario y el ordenador (teclado, sonido, 
etc.) 

A  ——— 
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Matrix Matriz 


Disposición de los puntos con los que se forman los caracteres en la pantalla o en las 
impresoras de “matriz de puntos”. En otra acepción, variables que con un solo nombre 
pueden contener múltiples valores, a los que se accede mediante los “índices?. 

Memory Memoria 
Especie de “aparcamiento” en la máquina, en la que ésta almacena los programas y los 


datos. La memoria puede ser RAM (memoria de acceso aleatorio), en la que se puede 
escribir y leer, o ROM (memoria de “sólo lectura”), en la que solamente se puede leer. 


A . 
Memory map Mapa de memoria 
Esquema en que se indica qué zonas de memoria están dedicadas a las diversas funcio- 
nes: pantalla, sistema operativo, variables, etc. 


Menu Menú 


Lista de opciones que se ofrece al usuario de un programa. 


Microprocessor Microprocesador 


Circuito integrado que controla el funcionamiento del ordenador. Recibe y ejecuta las 
instrucciones que le entrega el intérprete de BASIC y controla todas lás interfaces. 


Modem, Modulator/Demodulator Modulador/demodulador, Modem 


Dispositivo que permite conectar el ordenador a una línea telefónica o la conexión a 
otros ordenadores o terminales remotos. 


Monitor 5 


Pantalla en la que se visualizan los gráficos, listados, mensajes, etc. También el progra- 
ma que permite observar la operación básica del ordenador. 


Mouse Ratón 


Seguidor boca abajo, o bola rodante. Al desplazarlo con la mano sobre una superficie 
plana, mueve el cursor por la pantalla. 
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MSB, Most Significant Bit Bit más significativo, BMS 


En un número binario, el bit de mayor peso; es decir, el que está más a la izquierda. 


Network Red 


Cuando se interconectan varios ordenadores para intercambiar programas y datos, vía 
modem, cable, etc., se forma una “red”. 


y 


Nibble Cuarteto 


Medio byte, es decir, un número binario de cuatro bits. 


Node Nodo 
Unidad de espacio de trabajo en LOGO. Generalmente un nodo consume 4 bytes de 
espacio de memoria. 

Noise Ruido 
El sistema de sonido del CPC6128 permite generar ruidos aleatorios para simular efec- 
tos sonoros tales como explosiones, disparos, etc. 

Numeric keypad Teclado numérico 
Grupo de teclas numéricas destinadas a facilitar la introducción de números en el orde- 
nador. En el caso del CPC6128, estas teclas son además definibles por el usuario. 
OCR, Optical Character Recognition Lectura óptica de caracteres 


Sistema de lectura automática de caracteres escritos y de conversión a datos utilizables 
por el ordenador. 


Octal 


Sistema de numeración de base 8 en que cada dígito (del O al 7) se presenta con tres 
dígitos binarios. 


Off line Fuera de línea 


Situación en la que se encuentra un periférico cuando no está activamente conectado 
al ordenador. 
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On line En línea 


Término opuesto a Off line/Fuera de línea. 


Operating system Sistema operativo 
Programa que gestiona el manejo de la memoria, la ejecución de programas, priorida- 
des, control de tiempos, etc. Interfaz entre la máquina y los programas del usuario. 
Operator Operador 


Parte de una operación aritmética o lógica que describe en qué consiste la operación. 


Output Salida 


Todo lo que sale del ordenador como resultado de algún proceso o cálculo. 


Overwrite Sobreescribir 
Escribir borrando lo anterior. Borrar parte de la memoria o la pantalla, a veces invo- 
luntariamente, al escribir nuevos datos en ella. 

Paddle Empuñadura 


Mando principal del joystick. 


Page zero Página cero 


Zona de memoria, en CP/M entre las posiciones $:0000 y £0100, en la que se almace- 
nan parámetros esenciales del sistema operativo. 


Parallel interface Interfaz paralelo 


Sistema de conexión del que es ejemplo el interfaz para impresora del CPC6128. Cada 
línea del bus de datos se conecta a la correspondiente patilla del corrector de la impre- 
sora. Los datos se transmiten en grupos simultáneos. Este método de transmisión es 
mucho más rápido que el que se consigue con un interfaz serie, en que los dígitos bina- 
rios se envían uno tras otro, por una sola línea. 
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Pascal 


Lenguaje estructurado de alto nivel que ha de ser compilado antes de su ejecución y 
que, por consiguiente, es muy rápido. Es el lenguaje que habitualmente se estudia des- 
pués de BASIC. 


PEEK 


Función de BASIC que examina una posición de memoria especificada e informa de 
su contenido. 


Peripheral Periférico 


Impresoras, modems, joysticks, magnetófonos, etc.; cualquier aparato que pueda ser 
conectado al ordenador para hacerlo más útil. 


Physical device Dispositivo físico 
Dispositivo que realmente existe (o sea, pieza de hardware), representable por un dispo- 


sitivo lógico. 


Pixel (picture element) Punto gráfico 


La menor área de la pantalla que puede ser controlada con independencia de las demás. 


Plotter Trazador automático 


Trazador especial que dibuja con plumas, tanto caracteres como dibujos propiamente 
dichos. 


POKE 


Orden de BASIC que escribe un valor en una posición de memoria especificada. 


Port Puerta 


Lugar específicamente direccionable de un interfaz para la entrada o salida de datos. 
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Portability Adaptabilidad 
Característica de un lenguaje o programa que hace fácil su adaptación a otra máquina, 
generalmente como consecuencia de la compatibilidad del sistema operativo (v. g., el 
CP/M de Digital Research). 

Primitives Primitivas 


Procedimientos, operaciones u órdenes básicos en los que consiste Dr. LOGO. 


Printer Impresora 


Máquina que escribe en papel los datos enviados por el ordenador. 


Procedure Procedimiento 


Serie de expresiones o instrucciones que indican al ordenador cómo realizar una tarea. 


Program Programa 


Conjunto de instrucciones que gobiernan el funcionamiento del ordenador para hacer 
que realice una tarea. Puede tratarse de una simple rutina en código de máquina o de 
una aplicación completa, tal como un paquete de contabilidad o un procesador de 
textos. 


Programming language Lenguaje de programación 


Lenguaje en el que escribe un programa, consistente en un conjunto de reglas que indi- 
can cómo se utilizan las palabras y los números. 


PROM 


Programmable Read Only Memory. Memoria programable de “sólo lectura”. Circuito 
integrado de memoria que, una vez grabado, ya no se puede borrar. (Véase también 
EPROM.) 


Prompt Mensaje inductor 


Un corto mensaje o grupo de caracteres que recuerda al lector que el ordenador está 
esperando una entrada. Por ejemplo, en CP/M es >; en LOGO, ?. 
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PSU, Power Supply Unit Fuente de alimentación 


Circuito que convierte la tensión alterna de la red a una tensión continua adecuada para 
los circuitos del ordenador (y de los periféricos). 


OQWERTY keyboard Teclado tipo QWERTY 


Teclado del tipo de las máquinas de escribir estándar. 


RAM 

Random Access Memory. Memoria de acceso aleatorio. Memoria de la que se puede 
leer y en la que se puede escribir en el curso normal de la ejecución de un programa, 
en cualquier dirección y en cualquier orden. 

Random access Acceso aleatorio 
Término que hace referencia a la posibilidad de leer o escribir datos en un disco en el 
orden que se desee. 

Random number Número aleatorio 
Número generado por el ordenador que no es ni repetible ni predecible. El CPC6128 
genera una sucesión de números pseudoaleatorios. 

Raster scan Barrido de trama 


Sistema de “escritura” en la pantalla, en que las imágenes se forman mediante un barri- 
do de líneas horizontales. 


R/O, Read only De “sólo lectura” 
Atributo de un disco, de un fichero, de una unidad de disco, etc., que impide la escritu- 
ra y la modificación de los datos. 

R/W, Read write De lectura/escritura 


Atributo de un disco, de un fichero o de una unidad de disco que permite tanto la lectu- 
ra como la escritura o la modificación de los datos. 
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Real number Número real 


Número que consta (o puede constar) de parte entera y parte decimal. 


Real time En tiempo real 
Efectos que ocurren en el momento presente, a diferencia de aquéllos que sólo se apre- 
cian cuando ha terminado el proceso que los provocó. 

Record Registro 


Unidad de medida de ficheros. En CP/M los registros son de 128 bytes. 


Recursion Recursividad 


Serie de etapas repetidas de un programa o una rutina, tales que cada una está relacio- 
nada con la anterior. 


Refresh Renovación, refresco 


Actualización de la información, ya sea de la pantalla o de la memoria. No siempre 
es un proceso destructivo; puede tratarse de una confirmación de la situación actual, 
en dispositivos que de otro modo perderían la información. 


Register Registro de máquina 


Posición de memoria transitoria de la UCP utilizada para almacenamiento provisional 
de los datos. 


(REM) Remark Comentario, observación 


Instrucción de un programa que el ordenador no ejecuta; sirve para que el programa- 
dor escriba anotaciones, o para escribir la fecha o número de versión del programa. 


Reserved word Palabra reservada 


Una palabra que tiene un significado especial para un programa, y que por consiguien- 
te no se puede utilizar fuera del contexto predefinido. Por ejemplo, BASIC no puede 
aceptar NEW como nombre de una variable, pues esa palabra está reservada para otro 
propósito. 
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Resolution Resolución 


La resolución es tanto mayor cuanto menor sea el tamaño de los pixels. Da una idea 
de cómo de “finos* pueden ser los gráficos en un ordenador. 


Reverse Polish notation Notación polaca inversa 
Método de escribir operaciones aritméticas, adoptado por ciertos fabricantes de calcu- 
ladoras, en el que los operadores (+, —, *, /) se ponen después de los operandos. 

RF Modulator Modulador de radiofrecuencia 


Método por el cual las señales de video del ordenador se codifican y transmiten a la 
entrada de antena de un televisor. 


ROM 


Read only Memory. Memoria de “sólo lectura”. Memoria que no se puede borrar. 


Routine Rutina 


Una parte del programa que realiza una tarea especifica. Un subprograma contenido 
en un programa más general, o que se ha escrito de forma independiente y puede ser 
incorporado a otros programas. 


RS-232C 
Un sistema concreto estandarizado para los interfaces de comunicación en serie. Los 


dispositivos que están en los dos extremos de la línea deben estar configurados de 
acuerdo con las normas EIA RS-232C. 


Screen editor Editor de pantalla 
Editor de textos o de programas que permite llevar el cursor a cualquier lugar de la 
pantalla para modificar su contenido. 

Scrolling Desplazamiento vertical, rodadura 


Término que describe la forma en que la pantalla “rueda” hacia arriba cuando se ha 
llegado a la última línea y se necesita una nueva. 
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Sector 

Memoria mínima direccionable en un disco. El sistema de AMSTRAD está basado en 
sectores de 512 bytes. 

Separator Separador 


Signo que marca el límite entre palabras reservadas y otros elementos del programa. 


Serial interface Interfaz serie 


Este término hace referencia normalmente al estándar RS-232C, aunque existen otros 
métodos de transmisión en serie de datos. 


Simulation Simulación 
Técnica de emulación de los procesos reales en un ordenador; por ejemplo, simulación 
de vuelo, de la conducción de automóviles, etc. 

Singled sided De una sola cara 


Hace referencia al tipo de disco en el que sólo se pueden grabar datos en una cara. 


Software Programación, software 
Conjunto de programas que hacen que el ordenador funcione; en disco, cinta, ROM, 
etcétera. 

Software engineering Ingeniería de programación 
Técnicas de programación consideradas desde un punto de vista científico, para distin- 
guirlas de las no organizadas o arbitrarias. 

Sound generator Generador de sonido 


Parte de un ordenador (circuitos o programas) que genera sonido y ruido. 
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Speech recognition Reconocimiento de voz 


Conversión de la palabra hablada en información reconocible por el ordenador. 


Speech synthesis Síntesis de voz 


Generación de voces simuladas mediante una combinación de circuitos y programas. 


Spread sheet Hoja electrónica 
Un programa que permite introducir datos numéricos para disponerlos en filas y co- 
lumnas y para hacer con ellos manipulaciones aritméticas. Al modificar uno de los da- 
tos se rehacen los cálculos para actualizar los resultados por filas y columnas. 

Sprite Agente gráfico móvil 
Objeto gráfico que se puede mover libremente por la pantalla, generado por software 


o por hardware de forma tal que pueda aparecer y desaparecer de modo aparentemente 
aleatorio. 


Stack Pila. 
Área de memoria utilizada para almacenar datos provisionalmente y organizada de for- 
ma que el último dato depositado en ella es el primero que se recupera. 

Stream Canal 


Vía de salida del ordenador; por ejemplo, la pantalla, la impresora o el disco. 


String Cadena literal 


Un objeto formado por caracteres cualesquiera que el programa no puede tratar como 
numérico. Puede constar solamente de dígitos, pero el ordenador no lo considera como 
número mientras no se lo convierta a número mediante la instrucción adecuada. 


Structured programming Programación estructurada 


Técnica de programación lógica y premeditada con la que se escriben programas que 
fluyen de principio a fin en etapas bien diferenciadas. 
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Sub-routine 


Véase Routine, rutina. 


Syntax error Error de sintaxis 


Cuando se infringen las reglas sobre la utilización de palabras clave y variables, BASIC 
emite este mensaje. 


System tracks Pistas del sistema 


Pistas reservadas en el disco para el sistema CP/M. 


Terminal 


Teclado de entrada con pantalla, o bien con teletipo de salida. 


TPA, Transient Program Area Area para programas transitorios 


Area de memoria que empieza en $:0100, en la que en CP/M se almacena los programas 
de usuario y los datos por éstos generados. 


Track Pista 


Las pistas son coronas circulares del disco. Cada una se divide en un número fijo de 
sectores. Las pistas y sectores se inscriben en áreas específicas del disco en el proceso 
de inicialización. 


Transient program Programa transitorio 


Un programa de ayuda de CP/M, tal como PIP, que puede ser cargado en la TPA sin 
más que escribir su nombre en el teclado. 


Truncated Truncado 


Hace referencia a un número o una cadena que han sido recortados por la izquierda 
o por la derecha. Cuando el truncamiento es intencionado, suele incluir el redondeo 
del número. Si es intencionado, los caracteres sobrantes se eliminan para encajar el nú- 
mero o la cadena en el espacio disponible. 


Truth table Tabla de verdad 


El resultado de toda operación lógica puede ser “verdadero” o “falso” (para el ordena- 
dor, 1 0 0). La tabla de verdad da todos los resultados posibles de la operación en fun- 
ción del valor de los operandos. 
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Turtle Tortuga 


Un símbolo con forma de punta de flecha que funciona como cursor gráfico en la pan- 
talla gráfica de Dr. LOGO. 


Turtle graphics Gráficos de tortuga 


Imagen que deja la tortuga de Dr. LOGO al moverse por la pantalla. 


UDK, User Defined Keys Teclas definidas por el usuario 
En el CPC6128 hay 32 teclas a las que se pueden asignar tareas concretas, que el orde- 
nador realiza en cuanto el usuario las pulsa. 

Unsigned number Número entero sin signo 


Número entero interpretado como positivo. 


Utility Programa de ayuda 


Un programa completo con el que se realiza una operación común a varias aplicacio- 
nes; por ejemplo, ordenar alfabéticamente o copiar ficheros. 


Variable 


Un dato o grupo de datos puede ser identificado en un programa mediante un nombre; 
su valor puede variar como consecuencia de la ejecución del programa. 


Warm start Arranque en caliente 


Es el que se realiza cuando se pulsa [CTRLIC en CP/M. Reinicializa el subsistema de 
disco y devuelve el control al modo directo de consola de CP/M. 


Wildcard character Símbolo comodín 


Este término hace referencia a los símbolos * y ?. Dr. LOGO solamente admite el ?. 
El * representa cierto número de símbolos ?. Al mencionar nombres de ficheros, se 
pueden construir nombres ambiguos poniendo símbolos ? en lugar de caracteres. 


Write protection Protección contra escritura 


Un mecanismo que impide escribir en un disco o fichero. Un disco protegido contra 
escritura es un disco de “sólo lectura”. 


Léxico inglés-castellano y glosario A2/31 


Apéndice 3 
Que usted lo disfrute ... 


Rebotes 


Sencillo y apasionante. Para un jugador contra el ordenador. Teclado o joystick. 


19 *REBOTES, por Alexander Martin 

29 "copyright (c) AMSOFT 1984 

3g ” 

49 MODE 1:BORDER 1: INK 9,1: INK 1,26: INK 2,24: INK 3,6 

SY SPEED KEY 15,2 

69 ENV 1,1,18,9,11,9,19 

79 ENT 1,19,2,2 

26 ENYV 3,1,8,16,5,-3,2 

998 ENV 2,5,3,3,1,-21,22,9,-3,2 

199 ENT -2,10,2,2,5,7—7+1,2,11,3,2,-4,8 

119 ” 

129 ” 

139 MOVE 36,32: DRAWR 86,499,1:MOVE 619,32: DRAWR 9,400,1 

146 FEN 3:LOCATE 3,1: PRINT STRING+(36,1493) 

159 PEN 2:LOCATE 3,2:PRINT STRINGS(36,143) 

166 PEN 1:FOR r=5 TO 6:LOCATE 3,r:PRINT STRINGS$(36,1493):N 
EXT r 

179 bx=9 

1289 pelotas=5!:puntos=98 

1948 PEN 1:GOSUB 689:CLEAR INPUT 

260 IF INKEYS<>CHRA$(32) AND JOY(0)<1ió THEN 298 

2189 LOCATE 3,23:PRINT SPACES$(36):LOCATE 1,24 :PRINT SPACES 
(40) 5 

229 GOSUB 698:GOSUB 660:G0OTO 289 

239 ? 

249 ” 

259 LOCATE bx,24:PRINT"  "¿¡STRING*$(4,131)53" "¿RETURN 

269 ” 

279 ” 

289 xa=1:ya=1: IF INT(RNDA2)=1 THEN xa=-xa 

2960 PEN 1:GOSUB 259 

399 ORIGIN 8,4909 
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319 
329 
339 
349 
359 
369 
379 


389 
399 
409 
419 


429 
439 
449 
459 


469 
479 
489 
499 
5g9 


sig 
529 
530 
549 


559 


569 
579 
589 
5998 
609 
619 
629 
639 
649 
659 
669 


x=bx+4:y=11:x1=x:y1=y 


x1i=x+xa:yi=y+ya 

IF x1=3 OR x1i=38 THEN xa=-xa 

GOSUB 549 

IF yi=24 AND x1i>bx+1 AND x1<bx+6 THEN ya=-ya! yi=y1-2: 
SOUND 139,44,8,7,1,1:a=((x>bx+5)0R(x<bx+2)):1F a=-1 T 
HEN xa=xaka:xi=x1+xa:yi=y1+1 

IF y=25 THEN LOCATE x,y:PRINT" ":GOTO 5909 

GOSUB 259 

t=TEST((16Xx1)-1,- (16Xy1)-1) 

IF t<>9 THEN ya=-ya:xz=x1:yz=y1:y1i=y1+ya:GOSUB 5998: 1F 
t=2 THEN puntos=puntos+ 14: GOSUB 669 

IF t=3 THEN puntos=puntos+290:GOSUB 468 

IF t=1 THEN puntos=puntos+5:GOSUB 469 

IF yi=i THEN ya=1 

LOCATE x,y:PRINT" ":LOCATE x1,y1:PRINT CHR$(231):¿x=x1 
iy=y1 

IF y=1 OR x=3 OR x=38 THEN SOUND 129,78,8,7,1,1 

GOTO 349 


pelotas=pelotas-1:SOUND 132,19,46,12,2,2: IF pelotas=9 
THEN GOTO 6298 
GOSUB 6£69:G0T0 289 


IF (INKEY(8)=9 OR INKEY(74)=9) AND bx>2 THEN bx=bx-2: 
RETURN 

IF (INKEY(1)=9 OR INKEY(75)=9) AND bx<32 THEN bx=bx+2 
: RETURN 

RETURN 


LOCATE xz,yz:PRINT" "¿RETURN 


IF puntos>=maximo THEN maximo=puntos 
GOSUB 6689:puntos=98:pelotas=5:GOTO 139 


SOUND 139,9,29,13,3,9,31:LOCATE 1,25:PRINT "Maximo"jm 


aximo; 


679 


LOCATE 15,25:PRINT "Puntos";jpuntos:LOCATE 30,25:PRINT 
"Pelotas";jpelotas: RETURN 


A3/2 
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689 LOCATE 3,23:PRINT"Pulse barra espaciadora para empeza 


r*" RETURN 


698 LOCATE 1,25:PRINT SPACE$ (40) 5 : RETURN 


Bombardero 


Una variación sobre un tema clásico. Para un jugador contra el ordenador. Sólo 


teclado. 

19 *BOMBARDERO, por Dave Town 

29 "copyright (c) AMSOFT 1984 

3g ” 

49 MODE 1:CLS:INK 96,9: BORDER 9: INK 1,18:INK 2,6: INK 3,4:1 
NK 5,15: INK 6,2: INK 7,24: INK 8,8: INK 9,26: INK 19,19: IN 
K 11,29: INK 12,12 

59 SYMBOL AFTER 249: SYMBOL 241,%40,669,8709, 7 F,?F, EF, 87 
» 8! SYMBOL 242,89,8:32,%7A, FE, FA, F2,KE9, 0 

68 puntos=9:maximo=9:! avit=CHR$ (241) +CHR$1242) ¿1x=2:y=2:cae 
=9:a=2:1b=2 

79 GOSUB 489 

329 CLS 

548 PEN 2:LOCATE 1,15: INPUT"Elija nivel: Y (AS) a S (PRINC 


IPIANTE) ",nivel 


10609 IF nivel<9 OR nivel>5 THEN GOTO 998 
119 nivel=nivel+19 
129 LOCATE 1,15:PRINT CHRs$(18)5:LOCATE 1,15: INPUT"Elija v 


elocidad!: Y (MAX) a 199 (MIN) ",vel 


139 IF vel>199 OR vel<9 GOTO 129 

149 ” 

159 *'Edificios 

169 ? 

179 MODE 9:FOR base=5 TO 15: FOR altura=21 TO INT(RND(1)X8 


+tnivel) STEP-1:LOCATE base,altura:PEN base-Z:PRINT CH 
R$(143) +CHR$ (8) +CHR$(11)+CHR+$(244) 3 NEXT: NEXT 


189 FLOT 94,29,4:DRAW 649,29,4 


199 LOCATE 1,25:PEN 2:PRINT"PUNTOS"5puntos;:LOCATE 12,25: 
PRINT"*MAX" maximo; 

299 ” 

218 ” Juego 

229 ” 

239 LOCATE x-1,vy:PRINT” ”; 
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499 


599 


PEN 1:LOCATE x,y:PRINT avitét;5:PEN 2 
IF y=21 AND x=15 THEN GOTO 299:ELSE GOTO 349 


"Aterriza 

FOR c=4 TO 1999: NEXT 
puntos=puntos+194-(nivel*2):nivel=nivel-1:x=2!y=2:a=2 
¿b=2:cae=9 

IF nivel<19%9 THEN nivel=19:vel=vel-29 

IF vel<9 THEN vel=9 

GOTO 159 

FOR c=9 TO vel: NEXT 

x=x+1 

IF x=18 THEN LOCATE x-1,y:PRINT CHR$(18)3:x=2:y=y+1:L 
OCATE x,y:PEN 1:PRINT avit$t;:PEN 2 

a$=INKEYS$: IF a$=" " AND cae=%2 THEN cae=1:b=y+2: a=x 

IF y=21 THEN cae=9 

IF cae=1 THEN LOCATE a,b:PRINT CHR$(252)53:LOCATE a,b- 
1:PRINT" "3:b=b+1:1F b>21 THEN LOCATE a,b:PRINT" "j:L 
OCATE a,b-1:PRINT" "5:a=09:b=4:cae=98: SOUND 3,4999,19,1 
2,9,9,19 

9a= (a-28.5)321 9b=490- (bX*16) :bomba=TEST (3a,3b) 

IF bomba>Y9 THEN GOTO 6798 
9x=((x+1.5)32) : 9y=498- (y*16) :choque=TEST (9x,39y) 

IF choque>8 THEN GOTO 579 

GOTO 239 


"Instrucciones 
LOCATE 1,2:PEN 1:PRINT"Usted esta pilotando un avion 
sobre una Ciudad desierta y tiene que pasar sobre los 
edificios para aterrizar y repos- tar. Su avion se 
mueve de izquierda a derecha."5:PRINT 
PRINT:PRINT"A1 llegar a la derecha, el avion vuelve a 
salir por la izquierda, pero MAS BAJO.Dispone de un n 
umero limitado de bombas y puede hacerlas caer sobre 
los edifi- cios pulsando la BARRA ESPACIADORA.";:PRI 
NT 
PRINT:PRINT"Cada vez que aterriza, sube la altura d 
e los edificios y la velocidad."*;:PRINT:PRINT:PRINT"U 
NA VEZ DISPARADA UNA BOMBA, YA NO PUEDE DISPARAR OTRA 


MIENTRAS NO HAYA EXPLOSIO-NADO LA PRIMERA!!! !*"; 

PEN 2:LOCATE 1,24:PRINT:PRINT"Pulse una tecla para em 
pezar."; 

a$=INKEYS$: IF a$="" GOTO 529 

RETURN 
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549 
559 
56g 
579 


589 


599 


699 


619 


*Colision 

LOCATE x-1,y:PRINT CHR$ (32) +CHR$ (32) +CHR$ (32) +CHR$ (25 
3) +CHRS (8) +CHR$ (238) +CHR$ (8) 5 

FOR t=1 TO 19:SOUND 7,4099,5,15,9,9,5:PEN t:PRINT CHR 
$ (253) +CHR$ (8) +CHRS (238) +CHR$ (8) +CHR$(32) +CHR$(8)5: FO 


-R tm=9 TO 59:NEXT:NEXT:PEN 2 


CLS:LOCATE 1,5:PRINT"Ha conseguido”;puntos;"puntos." 

IF puntos>maximo THEN maximo=puntos:LOCATE 1,8:PRINT" 
BATIO EL RECORD!!"; 

puntos=9:LOCATE 1,12:PRINT"Pulse V para volver a empe 
zar"; 


628 as=INKEYS: 1F a$="v" OR a$="VY" GOTO 634 ELSE GOTO 629 
6389 PEN 1:MODE 1:x=2:y=2:a=2:b=2:G0TO 99 

6499 * 

659 *'Edificio bombardeado 

669 ” 

6798 LOCATE a,b-1:PRINT" *“+CHR$(8)5;: PEN 4:FOR tr=1 TO INT( 


689 
699 
799 


RND(1)%3)+1:puntos=puntos+5: SOUND 3,40904,19,12,9,9,19 
:LOCATE a,b:FOR t=98 TO 4: PRINT CHR$(253) +CHR$ (8) +CHR$ 
(32) +CHR$ (8); :NEXT:b=b+1 

IF-b=24 THEN b=b-1 

NEXT 

LOCATE 7,25:PRINT puntos;j:cae=98:a=x:b=y:GOTO 239 


Tele tenis 


Con él empezó todo, y sigue siendo divertido. Para dos jugadores, o para uno contra 
el ordenador. Teclado o joystick(s). 


19 ' TELE TENIS, por David Radisic 

28 * copyright (c) AMSOFT 1985 

3g * 

49 DEFINT a-z 

5% comp=1 

69 ENV 1,=11,29,=9, 50990 

79 MODE 1: INK 0,19: BORDER 198: INK 1,26: INK 2,18: INK 3,9 
39 GOSUB Yi 

99 GOSUB 159 

199 GOSUB 339 

119 GOSUB 428 

12% LOCATE 13,1:PRINT USING"HH%$4 ";puntosi; 
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139 
149 
159 
169 
179 
189 
199 


209 
219 
229 
239 
249 
259 
269 
279 
289 
299 
390 
319 


329 
339 
349 
359 
368 
379 
389 
399 
499 
419 
424 
439 
449 
459 
469 
479 
489 
499 
599 
519 
529 
530 


549 
559 
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LOCATE 35,1:PRINT USING"$HH$ "53puntos2;5 

GOTO 199 

PEN 2 

x(1)=3:y(1)=5 

x(2)=37:y(2)=22 
bordes=CHR$ (233) :borde2$=STRING+$(2,297) 

LOCATE 1,3:PRINT STRING$(39,bordes$) :PRINT STRING$(39, 
borde+) 

FOR i=i TO 19 

PRINT borde2$;TAB (38) ;borde2+$ 

NEXT 

PRINT STRINGS$(39,borde+$) :PRINT STRING$(39,borde*); 
WINDOW $1,3,37,5,23 

CLSH1 

SYMBOL 249,8,69,126,126,126,126,698,9 
ragé="¡"+CHR+$(8) +CHR$(19)+" 1" 

bor$=" "+CHR$(8)+CHR$(19)+" * 

pel$=CHR$ (249) 


PEN 3 

LOCATE 2,1:PRINT"Jugador 1: "5 :LOCATE 24,1:PRINT” 
Jugador 2: g" 

RETURN 

n=INT(RNIDXZ) : CLSHi:punto=9 

PEN 3 

FOR is=i TO 2:LOCATE x(i1),y(i):PRINT ragq$;5: NEXT 


ON $ GOTO 399 
xb=21:dx=1 

GOTO 499 

xb=19:dx=-1 
yb=12:dy=INT(RNDX3)-1 


RETURN 

GOSUB 699 

oxb=xb:0yb=yb 

GOSUB 599 

IF nota>YW9 THEN SOUND 129%,nota,58,15,1 


LOCATE oxb,oyb:PRINT" *"; 
LOCATE xb,yb:PRINT pels 
IF punto=9 THEN 429 


RETURN 

LOCATE xb+dx,yb+dy:chée=COPYCHRS ($9) 

nota=9 

IF ch$=" " THEN xb=xb+dx:yb=yb+dy: RETURN 

IF ch*e=";" THEN dx=2-dx-2:dy=INT(RNDX3)-1:nota=299: RE 


TURN 
IF ch$=LEFTS+(borde2%,1) THEN 579 
IF cht=borde*+ THEN dy=2-dy-2:nota=259 
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56 
579 
589 
599 
699 


é6l9 
629 


639 
649 
659 
669 


674 
689 
699 
7209 
719 


720 
238 
749 
259 
769 
278 
789 
299 
399 
s19 
829 
3839 


RETURN 

IF dx>9 THEN puntosi=puntos1+1 ELSE puntos2=puntos2+1 
punto=1:nota=2999 

RETURN 

p (1)=(INKEY (69) >=9) + (INKEY (72) >=9) +ABS ( (INKEY (71) >=8) 
+ (INKEY (73) >=9))%2 

IF comp=1 THEN p12)=ABS(y(2)<yb)*2+ (y 12) >yb) :GOTO 638 
p (2) =(INKEY (4) >=9) + (INKEY (48) >=9) +ABS ( (INKEY (53) >=9) +( 
INKEY (49) >=9) ) 2 

PEN 3 

FOR isi TO 2 

LOCATE x(i),y(1)+p(1):ch$=COPYCHR$ ($9) 

IF ch$=" *" THEN LOCATE X(1),y (1): PRINT bor$;5:y(i)=y(i 
) +ROUND (p(1)/2) 

LOCATE x(i),y(1):PRINT ragq$; 

NEXT 

PEN 1 

RETURN 
PEN 2:PRINT:PRINT TAB(15)"Ping-Pong":PRINT TAB(159)"-- 

PEN 3:PRINT:PRINT TAB(10) "Para mover raquetas! 
PRINT:PRINT:PEN 1 


PRINT" Jugador 1 Jugador 2 Direccion*:PRINT 
PRINT" A 6 ARRIBA" 

PRINT" z 3 ABAJO": PRINT 
PEN 3:PRINT:PRINT TAB(14)"0 con joysticks" 


PRINT:PRINTSPRINT:PRINT 

PEN 2 

PRINT TAB(7)"Elija <1> o <2> jugadores” 
ió=INKEYS: 1F i$<>"1" AND i$<>”2" THEN 819 
IF i$é="1" THEN comp=1 ELSE comp=9 

MODE 1: RETURN 
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Esgrima eléctrico 


¡Trate de “tocar” a su oponente! Para dos jugadores. Teclado o joysticks. 


19 ” ESGRIMA ELECTRICO, por Alexander Martin 
29 ” copyright (c) AMSOFT 1985 
3 ” 

48 DEFINT a-z 

59 MODE Y 

69 GOSUB 989 

749 GOSUB 1379 

88 GOSUB 279 

99 GOSUB 1529 

199 GOSUB 1379 

119 GOSUB 1279 


139 ” 

149 REM empezar 

159 IF termina THEN GOTO 199 

1589 GOSUB 249 

179 FRAME: IF pidir THEN GOSUB 574 ELSE FRAME: FRAME 
189 FRAME: IF p2dir THEN GOSUB 624 ELSE FRAME: FRAME 
190 IF pisa=-1 THEN GOSUB 679 

209 1F p2sa=-1 THEN GOSUB 729 

219 GOTO 149 


239 ” 


249 IF j THEN 389 ELSE 489 


269 ” 

270 CLSIPEN 6 

280 PRINT:PRINT" ELIJA CONTROL" 

299 PRINT:PRINT:PRINT:PRINT" pulse J/T [ENTERJ" 
394 LOCATE 4,18:PRINT"JOYSTICKS"¡TAB(4);3"0 TECLAS" 
319 LOCATE 12,19: IF j THEN PRINT"X*":ELSE PRINT" " 
328 LOCATE 12,11:IF j THEN PRINT" ":ELSE PRINT"xX" 
3309 IF NOT(INKEY (45)) THEN j=-1 

349 IF NOT(INKEY(37)) THEN j=9 

359 IF NOT (INKEY(18)) THEN RETURN ELSE 319 

3ó6g ” 

379 ” 

389 pi=JOY (9) :p2=JOY (1) 

399 pidir=(pi AND 1)%-1+(pl1 AND 249.5 

499 p2dir=(p2 AND 1)X-1+(p2 AND 249.5 

419 IF pi AND ió THEN pisa=pisa-1: IF pisa=-1 THEN AFTER 1 
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429 


439 
449 
459 
469 
429 
489 
499 
599 


519 


529 
530 
599 
559 
569 
579 


589 
599 
689 
6l9 
629 


5 GOSUB 779 

IF p2 AND 1ó6 THEN p2sa=p2sa-1:1F p2sa=-1i THEN AFTER 1 
5 GOSUB 279 

IF pisa THEN pidir=9 

IF p2sa THEN p2dir=9 

RETURN 


p2dir=((INKEY (4) =9)%1) +( (INKEY (5) =9)X-1) 
pidir=((INKEY (69) =9)X1) + ( (INKEY (71)=9)%X-1) 


IF INKEY(63)=9 THEN pisa=pisa-1:1F pisa=-1 THEN AFTER: ” 


15 GOSUB 779 

IF INKEY(19)=9 THEN p2sa=p2sa-1:1F p2sa=-1 THEN AFTER 
15 GOSUB 779 

IF pisa THEN pidir=9 

IF p2sa THEN p2dir=9 

RETURN 


pt=piwp+pidir: IF pt>25 OR ptt<é THEN RETURN ELSE piwp= 
pt 

pidir=9 
PEN 1:LOCATE 3,piwp:CLSH3:PRINT CHR$(299)3 : RETURN 


pt=p2wp+p2dir: IF pt>25 OR pt<é THEN RETURN ELSE p2wp= 
pt 


639 p2dir=9 

699 PEN 2:LOCATE 18,p2wp:CLSHS:PRINT CHR$(211)5: RETURN 
659 ” 

669 * 

679 PAPER 44,4: WINDOW $4,4,17,p1wp+,plwp! CLSH4: FRAME: FRAME 
6896 PAPER $4,9:CLSH4 

699 GOTO 579 

7Bu ” 

719 ” 

729 PAPER H6,5: WINDOW $6,9,17,p2wp,p2wp: CLSH+6: FRAME: FRAME 
7390 PAPER H$6,9:CLSH6 

749 GOTO 629 

759 ” 

769 ” 

778 pwpe=(piwp=p2wp):IF pisa AND NOT(p2sa) AND pwpe THEN 


789 


pisc=pisc+i1:SOUND 132,129,19,9,1,9:PRINTH+i,at(pisc)5: 
IF pisc=9 THEN 869 ' 
IF p2sa AND NOT (pisa) AND pwpe THEN p2sc=p2sc+1: SOUND 

132,199,19,9,1,9:PRINTRH2,as(p2sc)3:1F p2sc=? THEN 86. 
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249 
2959 
968 

29 
989 
209 


g 

IF pisa THEN SOUND 132,949,79,9,1,1 
IF p2sa THEN SOUND 132,56,79,9,1,1 
pisa=9 

p2sa=9 

RETURN 


PEN é 
LOCATE 2,19:PRINT"FIN DE LA PARTIDA" 


IF pisc=9 THEN INK 1,2,29:INK 2,9 ELSE INK 2,6,17: INK 


1,9 
SOUND 129,1999,9,12,3:SOUND 139,999,9,12,3 
WHILE INKEY$<>"":WEND 
t!=TIME: WHILE t!+2999>TIME: WEND 


WHILE INKEYS$="":WEND 

CLS o 
termina=-1 Al 
RETURN 
a$(9)="111191191191111" 


a$(1)="9010919919U19B1" 


1999 a$(2)="111991111199111" 
1919 a$(3)="111991111991111” 
1929 a$5(94)="109199191111991" 
1938 a$(5)="111199111991111" 


1949 


ab(6)="111199111191111" 


1959 a$(7)="111991991919919" 


10969 


a$(8)="11119111119111i" 


1979 a$(9)="111191111991991" 
1989 FOR n=9 TO 9 


1999 


tiempo=LEN(a$(n)). 


11099 FOR n2=1 TO tiempo 


1119 


IF MID$(a$(n),n2,1)="1"THEN MID$(a$(n),n2,1)=CHR$(14 


3) ELSE MID$(a$(n),n2,1)=CHR$(32) 


1129 NEXT n2,n 
1139 ? 

1149 * 

1159 b$="ESGRIMA ELECTRICO" 

1169 céó=CHR$(32)+CHR$(164)+" Alexander Martin" 
1179 ENV 1,=9,2999:ENT -1,6,3,1 

1189 ENV 2,127,9,9,127,9,0,127,9,9,127,9,9,127,9,9 
1199 ENV 3,=9,9999 

1299 * 

1219 > 


A3/10 
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BORDER Y 

INK 9,12:PEN $4,1:PEN $6,2:PEN $1,1:PEN $2,2: PAPER $ 
1,3:PAPER $2,3:PEN $9,6 

RETURN *de preparar constantes 


INK 9,12: INK 1,2: INK 2,6: INK 3,13: INK 4,29: INK 5,127: 
INK 6,29 

WINDOW $3,3,3,6,25: WINDOW +$5,18,18,6,25 

WINDOW $1,3,5,1,5: WINDOW +4$2,16,18,1,5: WINDOW +$7,1,29 
s1,5:PAPER $7,3 

CLS:CLSRH7:PRINTH1,as(9)5: PRINTH2,a$(9);:pl1isc=9:p2sc= 
S8:pinp=5:p2wp=24:p1idir=1:p2dir=1 : 
GOSUB 579:GOSUB 629  . 

SOUND 1,1999,98,12,2:SOUND 2,999,9,12,2 
pisa=9:p2sa=9:termina=0 

RETURN 


cLS 

PEN ? 

FOR n=1 TO LEN (bs) 

LOCATE 1+n,19 

FOR n2=LEN(b$) TO n STEP-1 
PRINT MID$(b+,n2,1) 

LOCATE 1i+n,19 

SOUND 135,29%n2,35,12,2,1 
NEXT n2,n S 
SOUND 135,199,8,13,3,1,29 
PEN 6:PRINT:PRINT:PRINT:PRINT c$ 
FOR n=1 TO 5990: NEXT 
RETURN 


IF j THEN RETURN 
CcLs 

LOCATE 6,5 

PRINT"CONTROLES" 

PRINT 

PRINT" JUGADOR 1 JUGADOR 2" 
PRINT 

PRINT" A arriba 6” 

PRINT" Z abajo 3* 

PRINT" Xx disparo 2" 
t!=TIME¡ WHILE t!+1999>TIME:WEND 
RETURN 
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Amthello 


El juego de la reflexión. Trate de rodear y capturar los cuadrados de su oponente sin 
dejar las suyos al descubierto. Para un jugador contra el ordenador. Sólo teclado. 


19 *AMTHELLO, por M. J. Gribbins 
29 "copyright (c) AMSOFT 1984 


49 BORDER 14 

59 CLEAR 

64 MODE 1:PEN S: PAPER 1:CLS 

278 INK 8,9: INK 1,14: INK 2,18: INK 3,26 

89 LOCATE 2,3:PEN 3:PRINT"A":LOCATE 3,4:PRINT"M":LOCATE 4 
ÍJS:PRINT"T":¿LOCATE 5,6:PRINT"H" 

99 LOCATE 6,7:PRINT"E":LOCATE 7,8:PRINT"L":LOCATE 8,9:PRI 
NT"L":LOCATE 9,19:PRINT"O” 

199 WINDOW $1,2,39,22,25:PAPER H1,1:PEN $1,9:CLSH1 

110 PEN Y 

129 LOCATE $1,5,1:PRINTH1, "LAS NEGRAS SIEMPRE EMPIEZAN" 

139 LOCATE $1,4,3:PRINTH1, "ELIJA BLANCAS <B> O NEGRAS <N> 

140 b$=INKEYS: IF b$="" THEN 149 

159 IF b$="B" OR b$="b" THEN q%=3:n%=9:GOTO 219 

159 IF b$="N" OR b$="n" THEN q%=9:n%=3:G0TO 219 

179 CLSHI:LOCATE $1,4,3 

189 PRINTHi," SOLO BLANCAS O NEGRAS” 

199 FOR t=9 TO 1099:NEXT t 

299 GOTO 149 

219 DIM c*(19,19),p%(9,9),c1%4(8),Cc2%(8),cx%(9) ,cy%(9) 

229 i1M=2:j31%=2:i124=7:j2%=7 

230 FOR i%=9 TO 9 

2484 cv(1%,0%)=6:0c%(9,1%)=6 

259 Cc%(9,i1%)=6:c%1(i%,9)=6 

269 NEXT i% 

279 FOR i%=1 TO 8 

289 READ c1%(1%),c2%(1%) 

299 FOR j%=1 TO 8 

399 READ p%1i%,3]%) 

319 co(i,j%)=6 

329 NEXT j%INEXT 1% 

339 c%(4,9)=3:c%(4,5)=9:c%(5,4)=9:0c%(5,5)=3 

349 FOR k%=1 TO 58 

359 READ ar%,br%,cr%,dr% 

369 PLOT ar%,br%: DRAW cr%,dr%,9 
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600 
619 


NEXT k% 

GOSUB 1469 

IF q%=3 GOTO 779 

CLS$1: INPUT $1," ELIJA FILA *"je% 

IF ex<i OR e%>8 GOTO 499 

LOCATE $1,1,3: INPUT H1," ELIJA COLUMNA "3d% 

IF d%<i OR d%>8 GOTO 429 

IF c%(d%,e%)=ó6 GOTO 489 

CLSHI:LOCATE H$1,5,2:PRINTH1, "ESE CUADRADO YA ESTA OCU 
PADO!" 


FOR t=1 TO 1999: NEXT t 

GOTO 499 

PLOT 278+(39%d%) ,708+ (39%e%) : DRAW 299+ (39%d%) ,89+ (38%e 
%),0% 

PLOT 299+(39%d%),79+ (38%e%) : DRAW 279+ (38%d%) ,39+ (38%e 
%),0% 

GOTO 549 

FOR m%=9 TO 19 STEP 2:PLOT 279+(39%d%),78+m%+ (39Xe%) 


DRAW 298+(38Xd%) , 78+m%+ (39%e%) ,Ó: NEXT m% 
GOTO 499 

vrx%=9 

FOR k%=1 TO 8 

vr%=9:c3%=d%:c4%=e% 
c3%=c3%+c1%(k%):c4%=c4%+c2%1k%) 

IF c%(tc3%,c4%)=n% GOTO 599 ELSE 699 
vrk=vr%+1:G0TO 579 

IF c%(c3%,c4%)=6 GOTO 614 ELSE 629 

NEXT k%: GOTO 679 

IF vr%=9 GOTO 619 ELSE 639 

vrx=vrx%+vr% 
c3%=c3%-ci%(k%):c4%=c4%-Cc2% (k%) 

IF c%(c3%,c4%)=6 GOTO 619 ELSE 669 
c%(c3%,c4%)=q%:G0TO 649 

IF vrx%=9 GOTO 689 ELSE 719 
CLSH1:PRINTH1,"ESO NO ES POSIBLE” 

FOR t=1 TO 19990: NEXT t 

GOTO 5i9 

ev=e%:dh=d%: vrx%=vrx% 

CLSH1:PRINTH1A, "USTED VA A LA LINEA ";je% 
PRINTH1," Y A LA COLUMNA "3d% 

LOCATE H$1,2,4:PRINTH1, "CON LO QUE CONSIGUE ";vrx%5" C 
UADRADO (S)” 

c%(d%,e%)=q%:GOSUB 1719 

GOSUB 1469 

CLSH1:LOCATE $1,19,2:PRINTH1, "AHORA ME TOCA A MI ... 


o a 
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3829 
299 
9998 
919 
929 


930 
949 
959 
969 


p%=9:vrx%=9: vry%=9 

IF i1%*j1%=1 AND 12%4Xj2%=64 GOTO 869 
FOR k%=2 TO 2 

IF c%(2,k%)<>6 THEN i1%=1 
IF c%(7,k%)<>6 THEN ¡12%=8 
IF c%(k%,2)<>6 THEN j1%=1 
IF Cc%(k%,7)<>6 THEN j¡2%=8 
NEXT Lk% 

FOR i%=i1% TO ¡2% 

FOR j%=j1% TO j2% 

IF c%(1%,j%)=6 GOTO 1939 
NEXT j%:NEXT í% 

IF p%>9 THEN 1999 

IF pas%=1 GOTO 929 ELSE 949 


CLSH1:PRINTH1, "BLOQUEADO! YO TAMBIEN TENGO QUE PASAR. 


FIN DE LA PARTIDA" 


FOR t=1 TO 1999:NEXT t:GOTO 1559 

CLSHI1SLOCATE +4$1,18,2:PRINTH1, "TENGO QUE PASAR" 
GOSUB 2729 

IF pas%=1 GOTO 979 ELSE 999 


979 CLSH1:PRINTH1, "BLOQUEADO" USTED TAMBIEN TIENE QUE 
PASAR. FIN DE LA PARTIDA." 
973 RETURN 


929 

999 

1999 
1919 
1929 
1939 
1949 
1959 
1969 
1979 
1939 
1999 
1199 
1119 
1129 
1139 
1149 
1139 
11650 


1179 
1129 
1199 


FOR t=1 TO 1999:NEXT t:GOTO 1559 
GOTO 499 


1F 1c%=9 THEN 1c%=1:RANDOMIZE 1c%:r1%=RND(1c%) 
cxi=cx%(r1%):cx2%=cy%(r1%) 

GOTO 1229 

vrxA=9 

FOR k%=1 TO 8 

vr=8:c3%=i1%:c4%=j% 
ci%=c3%tc1%(k%):c4%=c4%+C2%(k%) 

IF c%(c3%,c4%)=q% GOTO 1989 ELSE 1999 
vr=vr%+1:GOTO 1969 

IF c%(c3%4,Cc4%)=6 GOTO 1199 ELSE 1119 

NEXT k%:GOTO 1139 

IF vr%=0% GOTO 1199 ELSE 1129 
verx=vrx%+vr%*:GOTO 1199 

IF vrx%=9 GOTO 899 

IF p%(i1%4,1%)<p% GOTO 899 

IF p4(1%,j%)>p% GOTO 1169 ELSE 1179 
pA=p%(1%,j%) :vry=vrx%:1c%=9:C0x%4(9)=i%:0y%(9)=j%:GOT 
o 299 

IF vry%>vrx% GOTO 899 

IF vry%<vrx% GOTO 1199 ELSE 1299 
1c4=8:vry%=vrx%icx%(9)=i%:Ccy%(9)=i%:GOTO 899 
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1299 1c%=1c%+1:cx%(1c%)=i%:cy%(1c%)=j% 

1219 GOTO 899 

1229 cx2%=cx2%:cx1%=cx1%: vry%=vry% 

1239 CLSH$i:PRINTH1,"YO VOY A LA FILA *"3cx2%4 

1249 PRINTH1," Y A LA COLUMNA *;cx1% 

1259 LOCATE H$1,1,4:PRINTH1,"CON LO QUE CONSIGO ";vry%;j" C 
UADRADO (S)" 

1269 PLOT 279+(39%cx1%),79+ (39%cx2%) : DRAW 299+ (38*cx1%),8 
9+ (38%Ccx2%) ,n% 

1279 PLOT 299+(39%cx1%),79+ (39%cx2%) : DRAW 2798+ (38%*cx1%),8 
9+ (38XCx2%) ,n% 

1289 FOR t=1 TO 1999:NEXT t 

1299 FOR k%=1 TO 8 

1399 vr%=9:c3%=cx1%:C4%=cx2% 

1319 c3%=c3%+rc1%(k%):c4%=c4%+c2% (k%) 

1329 IF c%(c3%,c4%)=g9% GOTO 1339 ELSE 1349 

1339 vrá=vrA%+1:G60TO 1319 

1349 1F c%(c3%,c4%)= GOTO 1359 ELSE 1369 

1359 NEXT k%4:G0TO 1499 

1369 IF vr%=89 GOTO 1359 

1379 c3%=c3%4-c1%(k%):04%=c4%-C2% (k%) 

1389 IF c%(c3%,c4%4)=6 GOTO 1359 

1399 c%(c3%,c4%)=n%:G0TO 1379 

1999 c%ítcx1%4,cx2%)=n% 

19419 GOSUB 2728 

1429 GOSUB 1469 

1439 IF pas%=1 GOTO 1444 ELSE 1459 

1499 CLSH1:PRINTH1I," USTED TIENE QUE PASAR*:FOR t=1 TO 

1999: NEXT t:GO0TO 779 

1459 GOTO 449 

1469 FOR i%=1 TO 8 

1479 FOR j%=1 TO 8 

1489 FOR m%=1 TO 19 STEP 2 

1499 2%=279+ (391%): h%=79+ (39%3%) :w%=h%+m% 

1599 PLOT 2%,w%: DRAW z%4+29,w%,C%(1%,3j%) 

1519 NEXT m%:NEXT j%INEXT 1% 

1529 x%=x%+1 

1539 IF x%=61 GOTO 1559 

1549 RETURN A 

1559 cq4=9:cn%+=9 

1569 FOR i%=1 TO 8 

1579 FOR j%=i1 TO 8 

1589 IF c%(14,1%)=g9% THEN cog=cgq%+1 

1599 IF c%(1%,j%)=n% THEN cn%=cn%+1 

1699 NEXT j%:NEXT 1% 

1619 1F ca%+>cn% GOTO 16489 
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IF cgq%=cn% GOTO 1639 ELSE 1659 

CLSH1:LOCATE $1,25,2:PRINTH1, "BLOQUEADO" 

END 

CLSH1:LOCATE $1,5,1:PRINTH1, "USTED TIENE “3cg%;" CUA 
DRADOS. YO TENGO "5cn% 


LOCATE H1,11,3:PRINTH1, "YO HE GANADO ... !!!" 
END 
CLSH1:LOCATE $1,5,1:PRINTH1, "USTED TIENE "5cq%;" CUA 


DRADOS. YO TENGO ";cn% 

LOCATE $1,5,3:PRINTH1, "MUY BIEN. USTED HA GANADO ... 
11r1nn 

END 

IF Cc%(2,2)=q% AND (c%(3,1)=n% OR c%(1,3)=n%) GOTO 17 

20 ELSE 1738 

p%(3,1)=1:p%(1,3)=1 

IF c%(7,7)=q% AND (c%(8,6)=n% OR c%(6,8)=n%) GOTO 17 

49 ELSE 1759 

p%*(8,6)=1:p%(6,8)=1 

IF c%(2,7)=q% AND (c%(1,6)=n% OR c%(3,8)=n%) GOTO 17 

69 ELSE 1779 

p%(1,6)=1:p%(3,8)=1 

IF c%(7,2)=q% AND (c%(6,1)=n% OR c%(8,3)=n%) GOTO 17 

89 ELSE 1799 

p*(6,1)=1:p%(8,3)=1 

IF di=1 OR d%=8 OR e%=1 OR e%=8 GOTO 1829 

IF cxi%=1 OR cx1i%=8 OR cx2%=1 OR cx2%=8 GOTO 1829 

RETURN 

FOR j%=1 TO 8 STEP 7 

FOR i%=2 TO 7? 

IF c%(i%,j%)=n% GOTO 1859 ELSE 1869 

pR(i%t+1,1%)=21:p%(i%-1,j%)=21 

IF c%(j%,i%)=n% GOTO 1879 ELSE 1889 

pr(j%, 1%+1)=21:p%(5%,1%-1)=21 

NEXT 1% 

FOR i%=2 TO 7. 

IF c%(i%,j%)=q% GOTO 1919 ELSE 1929 

pR(i%+1,j%)=2:p%(i%-1,5%)=2 

IF c%(j%,1%)=q% GOTO 1939 ELSE 1949 

p%(j%, i%+1)=2:p%(j%,1%-1)=2 

NEXT i%:NEXT 5% 

p%(1,2)=1:p%(1,7)=1:p%(2,1)=1:p%(7,1)=1 

p*(2,8)=1:p%(7,8)=1:p%(8,2)=1:p%(8,7)=1 

FOR i%=2 TO 7 

IF c%(1,i%-1)=q% AND c%(1,1%+1)=q% THEN p%(1,1%)=25 

IF c%(8,i%-1)=q% AND c%(8,1%+1)=q% THEN p%(8,1%)=25 

IF c%(i%-1,1)=q% AND c%(1%+1,1)=q% THEN p*(1%,1)=25 
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IF c%(i%-1,8)=09% AND c%(1%+1,8)=q% THEN p%(1%,8)=25 
NEXT i% 

FOR j%=1 TO 8 STEP 7? 

FOR i%=4% TO 8 

IF c%(j%,1%)<>n% GOTO 2149 

ic%=i%-1:1F c%(j%,ic%)=6 GOTO 2149 

IF c%(j%,ic%)=q% GOTO 2089 ELSE 2999 
ic%=ic%-1:GOTO 2079 

IF c%(j%,ic%)=6 GOTO 2119 

GOTO 2149 

IF ic%=9 GOTO 2149 

IF c%(j%,i%+t1)=9% AND c%(j%,ic%-1)=6 GOTO 2149 
p%(j%, ic%)=26 

IF c%(i%,j%)<>n% GOTO 2239 

ic%=i%-1:1F c%tic%,j%)=6 GOTO 2239 

IF c%(ic%,j%)=q% GOTO 2178 ELSE 2189 
ic%=ic%-1:G0TO 2169 

IF c%tic%,j%)=6 GOTO 2299 

GOTO 2238 

IF ic%=%9 GOTO 2239 

IF c%(i%+1,j%)=9% AND c%(ic%-1,j%)=6 GOTO 2239 
p%íic4,j1%)=26 

NEXT i% 

FOR i%=1 TO 5 

IF c%(j%,1%)<>n% GOTO 2349 

ic%=i%+1: IF c%(j%,ic%4)=6 GOTO 2349 

IF c%(j%,1c%)=q% GOTO 2289 ELSE 2299 
ic%*=ic%4+1:GOTO 2279 

IF c%(j%4,ic%)=6 GOTO 2319 

GOTO 2349 

IF ic%=2 GOTO 2348 

IF c%(j%,i%-1)=09% AND c%(j%,ic%+t1)=6 GOTO 2349 
p%(j%,ic%)=26 

IF c%(1%,1%)<>n% GOTO 2439 

ic%=i%+t1:IF c%lic%.j%)=6 GOTO 2439 

IF c%tic%,j%)=9% GOTO 2379 ELSE 2389 
ic%v=ic%+t1:GOTO 2369 

IF c%»(lick%,j%)=6 GOTO 2499 

GOTO 2439 

IF ic%=92 GOTO 2439 

IF c%(i%-1,j%)=g9% AND c%tic%+t1,j%)=6 GOTO 2439 
p»+lic%,j%)=26 

NEXT i%:NEXT j% 

IF c%(1,1)=n% GOTO 2450 ELSE 2468 

FOR i%=2 TO 6:p%(1,1%)=29:p%(1%,1)=20:NEXT 1% 
IF c%4(1,8)=n% GOTO 2479 ELSE 2489 
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FOR i%=2 TO 6:p»*(1%,8)=29:p%(1,9-1%)=29:NEXT 1% 

IF c%(8,1)=n% GOTO 2499 ELSE 2599 

FOR i4=2 TO 6:pX*(9-i%,1)=29: p%(8, 1%) =298: NEXT 1% 

IF Cc%(8,8)=n% GOTO 2519 ELSE 2529 

FOR i%=3 TO 7:p%(1%,8)=29:p%(8,1%)=29:NEXT 1% 

IF c%(1,1)<>6 THEN p%(2,2)=5 

IF c%(1,8)<>6 THEN p%(2,7)=5 

1F c%(8,1)<>6 THEN p%(7,2)=5 

1F c%(8,8)<>6 THEN p%(7,7)=5 
p+(1,1)=39:p%(1,8)=39:p%(8,1)=39:p%(8,8)=39 

FOR i%=3 TO 6 

IF c%(1,1%)=n% THEN p%(2,i1%)=4 

IF C%(8,1%)=n% THEN p%(7,1%)=4 

IF c%(i%,1)=n% THEN p(1%,2)=4 

IF c4(1%,8)=n% THEN p%(i%,7)=4 

NEXT 1% 

IF c%(7,1)=Qq% AND c%(4,1)=n% AND C%(6,1)=6 AND c%(5S, 
1)=6 THEN p%(6,1)=26 

IF c%(1,7)=q% AND c%(1,4)=n% AND c%(1,6)=6 AND c%(1, 
5)=6 THEN p%(1,6)=26 

IF c%(2,1)=q% AND c%(5,1)=n% AND C%(3,1)=6 AND c%(4, 
1)=6 THEN p%(3,1)=26 

IF c%(1,2)=g9% AND c%(1,5)=n% AND c%(1,3)=6 AND c%(i, 
4)=6 THEN p%(1,3)=26 

IF Cc%(8,2)=q% AND c%(8,5)=n% AND C%(8,3)=6 AND c%(8, 
4)=6 THEN p%(8,3)=26 

IF c%(2,8)=9% AND c%(5,8)=n% AND C%(3,8)=6 AND c%(4, 
8)=6 THEN p%(3,8)=26 

IF c%(8,7)=gq% AND c%(8,4)=n% AND C%(8,5)=6 AND c%(8, 
6)=6 THEN p%(8,6)=26 

IF Cc%(7,8)=q% AND c%(4,8)=n% AND c%(5,8)=6 AND c%(6, 
8)=6 THEN p%(6,8)=26 

RETURN 

pas%=9 

FOR i%=1 TO 8 

FOR j%=1 TO 8 

IF c%(i1%,j3%)=g9% GOTO 2789 

NEXT j%AINEXT 1% 

pas%=1: RETURN 

FOR k%=1 TO 8 

vr=9:c3%=i%:c4%=j% 

ci%=c3%+c1%(Kk%) :c04%=c49%+Cc2% (L%) 

IF c34<1 OR c3%>8 GOTO 2829 ELSE 2839 

NEXT k%:GOTO 2769 

IF c4%4<1 OR c4%>8 GOTO 28290 ELSE 2849 

IF c%(c3%,c4%)=n% GOTO 2859 ELSE 2869 
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A 


2859 
2869 
2879 
2889 
2899 
2999 
2919 
2929 
2939 
27949 
2959 
27969 
2979 
2989 
2998 


3099 
3819 


3829 


3039 


3949 


39059 


3069 


3879 


3989 


vr=vr%+1:GO0TO 2899 

IF c%(c3%,c4%)=q% GOTO 2829 ELSE 2878 

IF vr%>8 THEN RETURN 

GOTO 2829 

DATA 1,9,39,1,29,19,19,20,1,39,1,1,1,1,3 

DATA 3,3,3,1,1,9,1,20,3,5,5,5,5,3,29,-1,1,19,3,5 

DATA £9,9,5,3, Bit, 9,18,3,5,9,9,5,3,19,-1 

DATA -1,26,3,5,5,5,5,3,290,98,-1,1,1,3,3,3,3,1515 1,-1, 

39,1,29,19,19,29,1,39 

DATA 263,199,263, 129, 279,130,255,139,255,130,255,149 
,255,148,270,149 

DATA 279,140,278,150,279,159,255,1598,255,168,279,169 
,270,169,279,189 

DATA 279,189,255,180,270,179,255,178,278,199,270,219 
,278,290,255, 208 

DATA 255,299,255,219,255,220,279,229,279,220,270,239 
,278,239,255,239 

DATA 255,230,255,240,255,249,270,249,255,259, 278,259 
,278,259,279,269 

DATA 278,260,255,260,255,250,255,279,278,288,270,399 
,2708,309,255,399 

DATA 255,319,255,330,255,339,270,339,270,330,279,319 
,278,319,255,319 

DATA 255,326,279,329 

DATA 319,355,319,375,350,355,335,355,335,355,335, 365 
,335,365,359,365 

DATA 359,365,359,375,350,375,335,375,365,355, 389,355 
,389,355,388,375 

DATA 389,375,365,375,380,365,365,365,419,355,419,375 
,419,365,395,365 

DATA 395,365,395,375,425,355, 449,355, 449,355, 449,365 
,449,365,425,365 

DATA 425,365,425,375,425,375, 449,375, 455,375,455,355 
1,455,355, 479,355 

DATA 479,355,478,365,479,365, 455,365, 485,375, 599,375 
,590,375, 599,355 

DATA 515,375,515,355,515,355,539,355, 539,355, 539,375 
,539,375,515,375 

DATA 515,365,539,365.. 


e 
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Guante blanco 


Llévese las joyas del señor conde. Muchos obstáculos con los que tropezar, luces que 
encender, y cuidado con el perro. Para un jugador contra el ordenador. Teclado O 


joystick. 
106 ”GUANTE BLANCO, por David Radisic 
20 "copyright (c) AMSOFT 1985 
30 ” 
46 MODE 6: INK 6,0:BORDER 6: INK 1,26: INK 2,15: INK 3425 
50 INK 4,14: INK 5,24,12:INK 6,0: INK 7,0: INK S, 0: PAPER Hi, 
? 
698 retardo=299 
79 DIM 0bjx(5,29),0bjy(5,29),joyax(5,29) ,joyay(5,20) 
388 GOSUB 388 
998 GOSUB 7229 
189 pausa=299:GOSUB 349 
119 IF joyas=9 THEN GOSUB 989 
1298 PEN 4 
139 FOR i=198 TO 12 
149 LOCATE 15,i:PRINT"BOTIN"; 
159 NEXT 
169 PAPER G:CLSH2:PAPER 8 
79 GOSUB 1189 
188 GOSUB 1249 
1729 GOSUB 13860 
2490 GOSUB 1529 
219 IF rm=9 THEN GOSUB 1919 
2298 IF muerto=WY THEN 169 
239 pausa=199: GOSUB 349 
240 PAPER S9:CLS:PEN 1 
258 LOCATE 4,3:PRINT"Quiere jugar"; 
269 LOCATE 5,5:PRINT"otra vez?"; 
2780 PEN S:LOCATE 7,71 PRINT"S/N"; 
289 ¡$sUPPERS(INKEYS): IF i$<>"S" AND i$<>"N" THEN 289 
299 IF i$="N" THEN MODE 2:PEN 1:STOP 
399 RUN E 
319 IF perro=1 THEN RETURN 
320 perro=1:perrox=minx(rm):perroy=miny (rm) 
339 RETURN 
349 FOR bucle=1 TO pausa 
359 FRAME 
369 NEXT 
379 RETURN 
339 rm=1:xp=6!yp=4! hombre$=CHR$ (224) :perro=9: robado=9 
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530 
549 
559 
569 
579 


589 


599 
699 
619 
624 


639 
6448 
659 
668 
678 
688 
69% 
799 
719 
729 
739 
249 
759 
769 
729 
789 
799 
299 
eig 


SYMBOL 248, 


8,8,8,8,8,8,8,8 
SYMBOL 241,9,9,9,9,255,9,1 8 
SYMBOL 242,90,0 9,0,15,8,8,8 
SYMBOL 243,9,9,9,9,248,8,8,8 
SYMBOL 244,8,8,8,8,248,9,9,9 


SYMBOL 245,8,8,8,8,15,9,9,9 
SYMBOL 246,8,12,13,14,12,12,8,8 
SYMBOL 247,8,12,12,14,13,12,3,8 
SYMBOL 248,8,24,88,56,24,24,8,8 


; SYMBOL 249,8,24,24,56,88,24,8,8 


SYMBOL 259,90,9,255,127,129,127,255,9 

SYMBOL 251,28,25,29,20,20,20,29,28 

SYMBOL 252,9,9,255,255,255,2959,25919 

SYMBOL 253,28,28,28,28,28,28,28,28 

SYMBOL 255,175,165,68,126,798,69,36,24 

ENT 1,12,-4,1 

ENT -2,=1999,69,=3090,49 

ENV 1,19,1,5,2,-4,1,2,-1,29 

vent (1) =STRINGS$ (2,259) : vent$ (2) =CHR* (251) +CHR$ (8) +CH 
R$ (19) +CHR$ (251) +CHR$(8) +CHR$ (19) +CHR$(251) 

puertas (1)=STRING$ (2,252) :puerta$(2)=CHR$ (253) +CHR$(8 
) +CHR$ (19) +CHR$(253) +CHR$ (8) +CHR$ (19) +CHR$(253) 

conm$ (1,9)=CHR$(246) :conmb(1,1)=CHR$ (247) 

conm$ (2,9) =CHR$ (248) :conmé(2,1)=CHR$ (249) 
joya$=CHR$(1449):0bj$=CHR$(233) :perros=CHR$ (255) 
901$=CHR$ (246) +CHR$ (248) +CHR$ (247) +CHR$ (249) +CHR$ (252 
) +CHR$ (253) +CHR$ (259) +CHR$(251)+joyas+obj$+perros$ 
RESTORE 3929 

FOR i=1 TO S 

READ minx(i),miny(i),maxx(i),maxy(i) 

READ dir(i,1),dir(i,2),dir(i,3),dir(i,4) 

NEXT 

WINDOW $1,minx(rm)-1,maxx(rm)+1,miny(rm)-1,maxy(rm)+1 
WINDOW $2,1,14,1,25 

CLSH1:PAPER $9,8 

RETURN 

ORIGIN 59,59 

INK 6,24,12 

RESTORE 3979 

GOSUB 1299 

LOCATE 1,29 

PEN S5S:PRINT">";5 

PEN 1:PRINT"Puertas y ventanas”; 

PEN 5:PRINT"<"5:PEN 1 

LOCATE 5,21:PRINT"para escapar"; 

LOCATE 9,1:PRINT"PASE":LOCATE 19,2:PRINT CHR$ (213) CHR 


e 5  — — 
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929 
939 


$(212);5 

pausa=399:GOSUB 349 

CLS:LOCATE 1,3: INK 6,9 

PEN 1:PRINT hombre*$;" Usted, el ladron":PRINT 

PEN 2:PRINT LEFT$(puertas$(1),1)5LEFTS(puerta$(2),1)3" 
Puertas” :PRINT 

PEN 3:PRINT conm$(1,9)5conm$(2,9);" Luces apagadas" :P 
RINT 

PEN 3:PRINT conm$(1,1);conm$(2,1);" Luces encendidas" 
SPRINT  ' 

PEN 4:PRINT LEFTS(vent$(1),1)5LEFTS$(vent$(2),1);" Ven 
tanas":PRINT 

PEN SPRINT joya$;3” Piedras preciosas":PRINT 

PAPER 1:PEN 9:PRINT obj$;5" Obstaculos ":PEN 1:PAPER 

g:PRINT 

PEN J:PRINT perro$;" El perro" 

PEN S:PRINT:PRINT:PRINT 

PRINT"Utilice joystick":PRINT"O teclas de cursor" 


949 aux=REMAIN(1) 

259 AFTER retardox*4,1 GOSUB 349 

96% RETURN 

970 ” 

929 "Generar joyas y obstaculos 

999 ? 

1999 FOR hab=1 TO 5 

191% joyar=INT(RNDXS)+2:0bjr=INT(RNDX19)+5 

1929 minx=minx(hab):miny=miny(hab):maxx=maxx (hab) :maxy=ma 
xy (hab) 

1939 FOR i=1 TO joyar 

1949 x=INT(RNDX(maxx-minx+1))+minx 

1959 y=INT(RNDX (maxy-miny+1))+miny 

1969 joyax(thab,i)=x:joyaylhab,i)=y 

1979 joyas=joyas+1 

192% NEXT i 

1879 FOR i=1 TO objr 

119% x=INT(RNDX (maxx-minx+1))+minx 

1119 y=INT(RNDX (maxy-miny+1))+miny 

1129 objx(hab,i)=x:0bjy(hab,i)=y 

1139 NEXT i 

114% joyas(hab)=joyar:obj(hab)=0bjr 

1159 NEXT hab 

116% CLS 

11789 RETURN 

1189 ON rm GOTO 1199,1299,1219,1229,1239 

119% RESTORE 2689: RETURN 

1209 RESTORE 27598: RETURN 
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RESTORE 2829: RETURN 

RESTORE 2899: RETURN 

RESTORE 2979: RETURN 

PAPER S:READ rm*:PAPER 8 

WINDOW H1,minx(rm)-1,maxx(rm)+1,miny(rm)-1,maxy(rm)+ 
1:CLSH1i 

PEN 1:LOCATE 1,1:PRINT SPACES(19);5 

LOCATE 1,1:PRINT"Habitacion: ";¡rm%; 

IF lucestrm) THEN INK 7,19: INK 8,19 ELSE INK 7,9: INK 
8,9 

READ as$:1F a$="FIN" THEN RETURN 

IF a$="D" THEN 2199 

IF a$="W" THEN 2279 

IF a$="L" THEN GRAPHICS PEN 1:GOTO 2359 

IF a$="S" THEN 2439 

IF a$="F" THEN GRAPHICS PEN 6:GO0TO 2359 
PRINT"AXXERROR XXX" 5 

sTOP 


"Dibujar joyas/objetos 

PEN ó 

FOR i=i TO obj (rm) 

LOCATE objixtrm,i),objyírm,i) 

PRINT obj%; 

NEXT 

PEN 5 

FOR i=i TO joyas1trm) 

LOCATE joyax(rm,i),joyayírm,i) 

PRINT joya$; 

NEXT 

PEN 1:LOCATE xp,Yp:PRINT hombre$; 

RETURN 

xt=0:y+=9:PEN 1 

IF INKEY(9)<>-1 OR INKEY(72)<>-1 THEN yf=-1 
IF INKEY(2)<>-1 OR INKEY(73)<>-1 THEN yf=1 

IF INKEY(8)<>-1 OR INKEY(74)<>-1 THEN x+f=-1 
IF INKEY(1)<>-1 OR INKEY(75)<>-1 THEN x+f=1 

IF xf=49 AND y+=9 THEN 1649 

LOCATE xp+x*+,yp+yf:ht$=COPYCHRS$ (49) 

IF ASC(ht$)>239 AND ASC(ht$)<246 THEN 1529 

IF hté$<>"” " THEN 1679 

LOCATE xp,yp:PRINT" *; 

PAPER S:LOCATE 4,24: PRINT* "5: PAPER 8 
xp=xp+x+t:yp=yp+ty+ 

LOCATE xp,yp:PRINT hombre$; 
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2658 IF perro>»9 THEN perro=perro MOD 2+1:1F perro=2 THEN 


2569 


1669 GOTO 1529 
1679 9o1=INSTR (901%, ht$) :car=ASC(MID$(go0l$,901,1)) 
1682 ON gol GOTO 1709,1799,1798,1790,1769,1769,1869,1919, 


1988,2109,2669 


1699 GOTO 1619 

1798 IF go1l>2 AND gol<5S THEN car=car-1 

1719 IF go0l1<3 THEN car=car+1 

1728 PEN 3:LOCATE xp+xf,yp+y+:PRINT CHR$ (car) 3 
1738 luces(rm)=luces(rm) XOR 1 


1749 


1759 
1769 
1779 
1789 
1799 
1899 
1819 
1828 
1839 
12849 
1259 
1869 
1879 
1889 
1899 
1999 
1919 
1929 
1939 
1949 


1959 
1969 
1979 
179289 
1999 
2099 
29819 
2929 
2030 
2049 
2959 
20869 


IF lucestrm) THEN INK 7,19: INK 8,19 ELSE INK 7,9: INK 
8,9 

GOTO 1529 

IF x4+<>9 AND yf<>0 THEN 1699 

IF x+f<9 THEN dir=4 ELSE 1F xf>9 THEN dir=3 

1F yf<2 THEN dir=1 ELSE IF y4>9 THEN dir=2 

IF dir(rm,dir)=-1 THEN 1649 ELSE rm=dir(rm,dir) 
IF perro>09 THEN GOSUB 319 

IF dir=1 THEN xp=6: yp=maxy (rm) 

IF dir=2 THEN xp=6:yp=miny (rm) 

IF dir=3 THEN xp=minx (rm) :yp=13 

IF dir=3 THEN xp=maxx (rm): yp=13 

RETURN 

IF xp>5 AND xp<8 THEN 1899 

IF xpié THEN dir=4 ELSE dir=3 

GOTO 1799 

IF yp>13 THEN dir=2 ELSE dir=1 

GOTO 1799 

PAPER 9:CLS:PEN 1 

LOCATE 3,3:PRINT"Usted ha escapado”; 

LOCATE 8,5:PRINT*con*; 

IF joyas=robado THEN LOCATE 3,7: PRINT"todas las";jELS 

E LOCATE 8,7? 

PRINT USING ” $$";robado; 

PEN S:LOCATE 8,9:PRINT"joyas"; 

muerto=1:RETURN 

LOCATE xp,yp:PRINT" "SIXpP=xp+xf 1 yp=yp+yf 

i=9 

i=i+1 

IF i>joyastrm) THEN 1529 

IF joyax(trm,i)<>xp OR joyay(rm,i)<>yp THEN 2999 

IF is=joyasírm) THEN 2969 

joyax(írm,i)=joyax(frm,joyastrm)) 

joyay(lrm,i)=joyay(rm,joyastrm)) 

joyastrm)=joyas(rm)-1:robado=robado+1 
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MOVE 499,159+(robado*2),1,1:DRAW 555, 159+ (robado*2), 
1,1 

SOUND 129,248,19,12,0,1 

GOTO 1999 

ruido=INT(RND*15) 

SOUND 1,39899,19,ruido,9,9,19 

PAPER S:LOCATE 4,24:PRINT"Choque "5: PAPER 8 
1F ruido<1%9 OR retardo=59 THEN 1649 
retardo=retardo-59 

aux=REMAIN(1) 

AFTER retardo*4,1 GOSUB 319 

GOTO 1649 


"Dibujar puertas 

READ no,pus$ 

IF pus="V" THEN pu=2 ELSE pu=1 
PEN 2 

pic$=puerta$ (pu): GOSUB 2519 
GOTO 1299 


"Dibujar ventanas 

READ no, vet 

1F ve$="V" THEN ve=2 ELSE ve=1 
PEN 4 

pic$=vent$(ve):GOSUB 2519 
GOTO 1299 


"Dibujar rectas 

READ x1,y1,x2,y2 

MOVE x1i,y1,,9 

DRAW x1,yZ,» 2: DRAW x2,y2,5,9 
DRAW x2,y1,,9:DRAW x1,y1,,9 
GOTO 1299 


"Dibujar interruptores 

READ no,cos% 

IF co$="L" THEN co=1 ELSE co=2 
PEN 3 

pic$=conm$(c0,9):G0SUB 2519 
GOTO 1299 


"Escribir car 
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READ x,y:LOCATE x,y:PRINT pic$; - 
no=no-1:1F no>S6 THEN 2539 


RETURN 


PEN 1:LOCATE perrox,perroy:PRINT" 
hombre$=CHR$ (225) 

IF (perrox=xp AND perroy=yp) OR (perrox=xp+x+ AND pe 
rroy=yp+yf) THEN 2669 

IF perrox<xp THEN perrox=perrox+1 

IF perrox>xp THEN perrox=perrox-1 

IF perroy<yp THEN perroy=perroy+1 

IF perroy>yp THEN perroy=perroy-1 

LOCATE perrox,perroy:PRINT perro$; 

SOUND 1,9,RNDXx49,10,1,2,31 


GOTO 1529 
PRINT"MORDIDO"; 
muerto=1: RETURN 
DATA Pasillo 

DATA L,64,398,226,4 
DATA D,2,H,6,3,6,22 
DATA D,2,V,4,12,9,11 
DATA S,1,L,4,11 
DATA S,1,R,9,14 
DATA FIN 

DATA Sala 

DATA L,2,398,258,4 
DATA D,1,V,19,12 
DATA W,1,H,6,3 

DATA W,1,V,2,12 
DATA S5,2,R,19,11,10,15 
DATA FIN 

DATA Comedor 

DATA L,2,398,258,4 
DATA W,1,V,18,12 
DATA W,1,H,6,3 

DATA D,1,V,2,12 
DATA 5,2,L,2,11,2,15 
DATA FIN 

DATA Cocina 

DATA L,2,276,384,4 
DATA D,2,H,6,5,6,22 
DATA W,1,H,19,22 
DATA W,1,V,14,13 
DATA D,1,V,2,13 
DATA S,1,L,2,16 
DATA FIN 
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2979 DATA Despensa 

29898 DATA L,2,276,2536,4 

2999 DATA D,1,V,19,12 

3999 DATA S,1,R,19,11 

3919 DATA FIN 

3929 DATA 5,4,8,21,9,4,3,2 
39039 DATA 3,4,9,21,-1,-1,1,-1 
3649 DATA 3,4,9,21,-1,-1,-1,1 
39059 DATA 3,6,13,21,1,9,-1,53 
3069 DATA 3,6,9,21,-1,-1,4,-1 
3979 DATA L,64,3988,180,199 
3989 DATA F,259,98,294,192 
39499 DATA F,259,396,294,319 
3199 DATA F,399,94,439,196 
3119 DATA F,399,392,439,314 
3129 DATA F,474,249,488,279 
3139 DATA F,474,124,488, 154 
3149 DATA F,58,249,72,279 
3159 DATA L,226,398,322,189 
3169 DATA L,169,189, 489, 199 
3179 DATA L,64,189,169, 199 
31899 DATA FIN 
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